Developer CD Series 1998 September: Reference Library

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998…tember: Reference Library / Dev.CD Sep 98 RL1.toast / Technical Documentation / develop / develop Issue 24 / develop Issue 24 code / Scriptable Database 1.0a15.sea / Scriptable Database 1.0a15 / Database / DBRecord.cp < prev next >
MacBinary | 1996-04-29 | 50.6 KB | [TEXT/CWIE]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	MS-DOS Code Page Info `(other/dosCodePage)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Mon Apr 29 16:27:02 1996, modified Mon Apr 29 16:27:02 1996, creator 'CWIE', type ASCII, 51089 bytes "DBRecord.cp" , at 0xc811 410 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CWIE]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 44 42 52 65 63 6f | 72 64 2e 63 70 00 00 00 |..DBReco|rd.cp...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 57 49 | 45 01 00 00 00 00 00 00 |.TEXTCWI|E.......|
|00000050| 00 00 00 00 00 c7 91 00 | 00 01 9a ad aa d6 96 ad |........|........|
|00000060| aa d6 96 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0b d0 00 00 |........|........|
|00000080| 2f 2f 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |//======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 0d 2f 2f 20 47 72 | 65 67 20 41 6e 64 65 72 |==.// Gr|eg Ander|
|000000e0| 73 6f 6e 0d 2f 2f 20 64 | 62 2b 0d 2f 2f 0d 2f 2f |son.// d|b+.//.//|
|000000f0| 20 43 75 72 73 6f 72 20 | 74 6f 20 61 6e 20 64 61 | Cursor |to an da|
|00000100| 74 61 62 61 73 65 20 72 | 65 63 6f 72 64 0d 2f 2f |tabase r|ecord.//|
|00000110| 20 31 36 20 4d 61 79 20 | 31 39 39 34 0d 2f 2f 20 | 16 May |1994.// |
|00000120| 33 31 20 44 65 63 20 31 | 39 39 34 0d 2f 2f 0d 2f |31 Dec 1|994.//./|
|00000130| 2f 20 45 76 65 72 79 20 | 64 61 74 61 62 61 73 65 |/ Every |database|
|00000140| 20 72 65 63 6f 72 64 20 | 69 73 20 61 6e 20 65 6e | record |is an en|
|00000150| 74 72 79 20 69 6e 20 61 | 20 62 61 6c 61 6e 63 65 |try in a| balance|
|00000160| 64 20 62 69 6e 61 72 79 | 20 74 72 65 65 2e 20 20 |d binary| tree.  |
|00000170| 54 68 65 0d 2f 2f 20 65 | 78 61 63 74 20 74 79 70 |The.// e|xact typ|
|00000180| 65 20 6f 66 20 74 72 65 | 65 20 75 73 65 64 20 69 |e of tre|e used i|
|00000190| 73 20 61 6e 20 41 56 4c | 20 74 72 65 65 20 28 6e |s an AVL| tree (n|
|000001a0| 61 6d 65 64 20 61 66 74 | 65 72 20 69 74 20 69 6e |amed aft|er it in|
|000001b0| 76 65 6e 74 6f 72 73 2c | 0d 2f 2f 20 47 2e 4d 2e |ventors,|.// G.M.|
|000001c0| 20 41 64 65 6c 73 6f 6e | 2d 56 65 6c 73 6b 69 69 | Adelson|-Velskii|
|000001d0| 20 61 6e 64 20 45 2e 4d | 2e 20 4c 61 6e 64 69 73 | and E.M|. Landis|
|000001e0| 29 2c 20 61 73 20 64 65 | 73 63 72 69 62 65 64 20 |), as de|scribed |
|000001f0| 69 6e 0d 2f 2f 20 5f 44 | 61 74 61 20 53 74 72 75 |in.// _D|ata Stru|
|00000200| 63 74 75 72 65 73 20 26 | 20 50 72 6f 67 72 61 6d |ctures &| Program|
|00000210| 20 44 65 73 69 67 6e 5f | 2c 20 28 32 6e 64 20 65 | Design_|, (2nd e|
|00000220| 64 69 74 69 6f 6e 29 20 | 62 79 20 52 2e 4c 2e 20 |dition) |by R.L. |
|00000230| 4b 72 75 73 65 2c 0d 2f | 2f 20 70 70 2e 20 33 34 |Kruse,./|/ pp. 34|
|00000240| 34 2d 33 35 36 2e 0d 2f | 2f 3d 3d 3d 3d 3d 3d 3d |4-356../|/=======|
|00000250| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000260| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000270| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0d 23 69 6e 63 6c |========|=..#incl|
|000002a0| 75 64 65 20 22 44 42 52 | 65 63 6f 72 64 2e 68 22 |ude "DBR|ecord.h"|
|000002b0| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 22 54 72 61 6e |..#inclu|de "Tran|
|000002c0| 73 61 63 74 69 6f 6e 2e | 68 22 0d 0d 23 69 6e 63 |saction.|h"..#inc|
|000002d0| 6c 75 64 65 20 22 45 78 | 63 65 70 74 69 6f 6e 73 |lude "Ex|ceptions|
|000002e0| 2e 68 22 0d 0d 23 64 65 | 66 69 6e 65 20 49 4e 48 |.h"..#de|fine INH|
|000002f0| 45 52 49 54 45 44 20 54 | 41 62 73 74 72 61 63 74 |ERITED T|Abstract|
|00000300| 52 65 63 6f 72 64 0d 0d | 2f 2f 2d 2d 2d 2d 2d 2d |Record..|//------|
|00000310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 2f 2f 20 54 44 |--------|--.// TD|
|00000360| 42 52 65 63 6f 72 64 3a | 3a 7e 54 44 42 52 65 63 |BRecord:|:~TDBRec|
|00000370| 6f 72 64 0d 2f 2f 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ord.//--|--------|
|00000380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003c0| 2d 2d 2d 2d 2d 2d 0d 54 | 44 42 52 65 63 6f 72 64 |------.T|DBRecord|
|000003d0| 3a 3a 7e 54 44 42 52 65 | 63 6f 72 64 28 29 0d 7b |::~TDBRe|cord().{|
|000003e0| 0d 7d 20 2f 2f 20 54 44 | 42 52 65 63 6f 72 64 3a |.} // TD|BRecord:|
|000003f0| 3a 7e 54 44 42 52 65 63 | 6f 72 64 0d 0d 2f 2f 2d |:~TDBRec|ord..//-|
|00000400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000450| 2f 2f 20 54 44 42 52 65 | 63 6f 72 64 3a 3a 43 6f |// TDBRe|cord::Co|
|00000460| 6d 70 61 72 65 54 72 65 | 65 4f 72 64 65 72 0d 2f |mpareTre|eOrder./|
|00000470| 2f 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/-------|--------|
|00000480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004c0| 2d 0d 43 6f 6d 70 61 72 | 65 45 6e 75 6d 65 72 61 |-.Compar|eEnumera|
|000004d0| 74 69 6f 6e 20 54 44 42 | 52 65 63 6f 72 64 3a 3a |tion TDB|Record::|
|000004e0| 43 6f 6d 70 61 72 65 54 | 72 65 65 4f 72 64 65 72 |CompareT|reeOrder|
|000004f0| 28 54 54 72 61 6e 73 61 | 63 74 69 6f 6e 2a 20 74 |(TTransa|ction* t|
|00000500| 2c 20 41 43 6f 6e 73 74 | 3c 54 44 42 52 65 63 6f |, AConst|<TDBReco|
|00000510| 72 64 3e 20 73 65 63 6f | 6e 64 4f 62 6a 65 63 74 |rd> seco|ndObject|
|00000520| 29 20 63 6f 6e 73 74 0d | 7b 0d 09 43 6f 6d 70 61 |) const.|{..Compa|
|00000530| 72 65 45 6e 75 6d 65 72 | 61 74 69 6f 6e 20 74 68 |reEnumer|ation th|
|00000540| 65 4f 72 64 65 72 20 3d | 20 74 68 69 73 2d 3e 43 |eOrder =| this->C|
|00000550| 6f 6d 70 61 72 65 53 6f | 72 74 4b 65 79 73 28 74 |ompareSo|rtKeys(t|
|00000560| 2c 20 73 65 63 6f 6e 64 | 4f 62 6a 65 63 74 29 3b |, second|Object);|
|00000570| 0d 09 69 66 28 74 68 65 | 4f 72 64 65 72 20 3d 3d |..if(the|Order ==|
|00000580| 20 6b 4f 62 6a 65 63 74 | 4b 65 79 73 45 71 75 61 | kObject|KeysEqua|
|00000590| 6c 29 0d 09 09 74 68 65 | 4f 72 64 65 72 20 3d 20 |l)...the|Order = |
|000005a0| 74 68 69 73 2d 3e 44 65 | 74 65 72 6d 69 6e 65 43 |this->De|termineC|
|000005b0| 6f 6d 70 61 72 65 45 6e | 75 6d 65 72 61 74 69 6f |ompareEn|umeratio|
|000005c0| 6e 28 74 68 69 73 2d 3e | 52 65 63 6f 72 64 49 6e |n(this->|RecordIn|
|000005d0| 64 65 78 28 29 2c 20 73 | 65 63 6f 6e 64 4f 62 6a |dex(), s|econdObj|
|000005e0| 65 63 74 2d 3e 52 65 63 | 6f 72 64 49 6e 64 65 78 |ect->Rec|ordIndex|
|000005f0| 28 29 29 3b 0d 09 72 65 | 74 75 72 6e 20 74 68 65 |());..re|turn the|
|00000600| 4f 72 64 65 72 3b 0d 7d | 20 2f 2f 20 54 44 42 52 |Order;.}| // TDBR|
|00000610| 65 63 6f 72 64 3a 3a 43 | 6f 6d 70 61 72 65 54 72 |ecord::C|ompareTr|
|00000620| 65 65 4f 72 64 65 72 0d | 0d 2f 2f 2d 2d 2d 2d 2d |eeOrder.|.//-----|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 2f 2f 20 54 |--------|---.// T|
|00000680| 44 42 52 65 63 6f 72 64 | 3a 3a 46 72 65 65 4f 77 |DBRecord|::FreeOw|
|00000690| 6e 65 64 44 61 74 61 0d | 2f 2f 2d 2d 2d 2d 2d 2d |nedData.|//------|
|000006a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 76 6f 69 64 20 |--------|--.void |
|000006f0| 54 44 42 52 65 63 6f 72 | 64 3a 3a 46 72 65 65 4f |TDBRecor|d::FreeO|
|00000700| 77 6e 65 64 44 61 74 61 | 28 54 54 72 61 6e 73 61 |wnedData|(TTransa|
|00000710| 63 74 69 6f 6e 2a 20 74 | 29 0d 7b 0d 09 2f 2f 0d |ction* t|).{..//.|
|00000720| 09 2f 2f 20 49 66 20 74 | 68 69 73 20 65 6e 74 72 |.// If t|his entr|
|00000730| 79 20 63 6f 6e 74 61 69 | 6e 73 20 61 6e 79 20 73 |y contai|ns any s|
|00000740| 75 62 2d 65 6c 65 6d 65 | 6e 74 73 2c 20 6d 61 6b |ub-eleme|nts, mak|
|00000750| 65 20 74 68 65 6d 20 61 | 6c 6c 20 66 72 65 65 0d |e them a|ll free.|
|00000760| 09 2f 2f 20 28 74 68 65 | 79 20 77 69 6c 6c 20 69 |.// (the|y will i|
|00000770| 6e 20 74 75 72 6e 20 66 | 72 65 65 20 61 6c 6c 20 |n turn f|ree all |
|00000780| 6f 66 20 74 68 65 69 72 | 20 73 75 62 2d 65 6c 65 |of their| sub-ele|
|00000790| 6d 65 6e 74 73 29 0d 09 | 2f 2f 0d 09 69 66 28 74 |ments)..|//..if(t|
|000007a0| 68 69 73 2d 3e 52 65 63 | 6f 72 64 43 61 6e 48 61 |his->Rec|ordCanHa|
|000007b0| 76 65 45 6c 65 6d 65 6e | 74 73 28 74 29 29 0d 09 |veElemen|ts(t))..|
|000007c0| 7b 0d 09 09 41 43 6f 6e | 73 74 3c 54 44 42 52 65 |{...ACon|st<TDBRe|
|000007d0| 63 6f 72 64 3e 20 65 6c | 65 6d 65 6e 74 73 20 3d |cord> el|ements =|
|000007e0| 20 74 68 69 73 2d 3e 54 | 6f 70 45 6c 65 6d 65 6e | this->T|opElemen|
|000007f0| 74 52 65 63 6f 72 64 28 | 74 29 3b 0d 09 09 69 66 |tRecord(|t);...if|
|00000800| 28 65 6c 65 6d 65 6e 74 | 73 2e 45 78 69 73 74 73 |(element|s.Exists|
|00000810| 28 29 29 0d 09 09 09 28 | 74 68 69 73 2d 3e 54 72 |())....(|this->Tr|
|00000820| 61 6e 73 61 63 74 69 6f | 6e 28 29 2d 3e 47 65 74 |ansactio|n()->Get|
|00000830| 44 42 52 65 63 6f 72 64 | 55 70 64 61 74 65 50 6f |DBRecord|UpdatePo|
|00000840| 69 6e 74 65 72 28 65 6c | 65 6d 65 6e 74 73 29 29 |inter(el|ements))|
|00000850| 2d 3e 46 72 65 65 45 6e | 74 69 72 65 54 72 65 65 |->FreeEn|tireTree|
|00000860| 28 74 29 3b 0d 09 7d 0d | 09 0d 09 2f 2f 0d 09 2f |(t);..}.|...//../|
|00000870| 2f 20 49 66 20 74 68 69 | 73 20 65 6e 74 72 79 20 |/ If thi|s entry |
|00000880| 63 6f 6e 74 61 69 6e 73 | 20 61 6e 79 20 70 72 6f |contains| any pro|
|00000890| 70 65 72 74 69 65 73 2c | 20 6d 61 6b 65 20 74 68 |perties,| make th|
|000008a0| 65 6d 20 61 6c 6c 20 66 | 72 65 65 0d 09 2f 2f 20 |em all f|ree..// |
|000008b0| 28 74 68 65 79 20 77 69 | 6c 6c 20 69 6e 20 74 75 |(they wi|ll in tu|
|000008c0| 72 6e 20 66 72 65 65 20 | 61 6c 6c 20 6f 66 20 74 |rn free |all of t|
|000008d0| 68 65 69 72 20 72 65 66 | 65 72 65 6e 63 65 64 20 |heir ref|erenced |
|000008e0| 64 61 74 61 29 0d 09 2f | 2f 0d 09 69 66 28 74 68 |data)../|/..if(th|
|000008f0| 69 73 2d 3e 52 65 63 6f | 72 64 43 61 6e 48 61 76 |is->Reco|rdCanHav|
|00000900| 65 50 72 6f 70 65 72 74 | 69 65 73 28 74 29 29 0d |ePropert|ies(t)).|
|00000910| 09 7b 0d 09 09 41 43 6f | 6e 73 74 3c 54 44 42 52 |.{...ACo|nst<TDBR|
|00000920| 65 63 6f 72 64 3e 20 70 | 72 6f 70 65 72 74 69 65 |ecord> p|ropertie|
|00000930| 73 20 3d 20 74 68 69 73 | 2d 3e 54 6f 70 50 72 6f |s = this|->TopPro|
|00000940| 70 65 72 74 79 52 65 63 | 6f 72 64 28 74 29 3b 09 |pertyRec|ord(t);.|
|00000950| 0d 09 09 69 66 28 70 72 | 6f 70 65 72 74 69 65 73 |...if(pr|operties|
|00000960| 2e 45 78 69 73 74 73 28 | 29 29 0d 09 09 09 28 74 |.Exists(|))....(t|
|00000970| 68 69 73 2d 3e 54 72 61 | 6e 73 61 63 74 69 6f 6e |his->Tra|nsaction|
|00000980| 28 29 2d 3e 47 65 74 44 | 42 52 65 63 6f 72 64 55 |()->GetD|BRecordU|
|00000990| 70 64 61 74 65 50 6f 69 | 6e 74 65 72 28 70 72 6f |pdatePoi|nter(pro|
|000009a0| 70 65 72 74 69 65 73 29 | 29 2d 3e 46 72 65 65 45 |perties)|)->FreeE|
|000009b0| 6e 74 69 72 65 54 72 65 | 65 28 74 29 3b 0d 09 7d |ntireTre|e(t);..}|
|000009c0| 0d 09 0d 09 49 4e 48 45 | 52 49 54 45 44 3a 3a 46 |....INHE|RITED::F|
|000009d0| 72 65 65 4f 77 6e 65 64 | 44 61 74 61 28 74 29 3b |reeOwned|Data(t);|
|000009e0| 0d 7d 20 2f 2f 20 54 44 | 42 52 65 63 6f 72 64 3a |.} // TD|BRecord:|
|000009f0| 3a 46 72 65 65 4f 77 6e | 65 64 44 61 74 61 0d 0d |:FreeOwn|edData..|
|00000a00| 2f 2f 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |//------|--------|
|00000a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a50| 2d 2d 0d 2f 2f 20 54 44 | 42 52 65 63 6f 72 64 3a |--.// TD|BRecord:|
|00000a60| 3a 46 72 65 65 54 68 69 | 73 52 65 63 6f 72 64 0d |:FreeThi|sRecord.|
|00000a70| 2f 2f 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |//------|--------|
|00000a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ac0| 2d 2d 0d 76 6f 69 64 20 | 54 44 42 52 65 63 6f 72 |--.void |TDBRecor|
|00000ad0| 64 3a 3a 46 72 65 65 54 | 68 69 73 52 65 63 6f 72 |d::FreeT|hisRecor|
|00000ae0| 64 28 54 54 72 61 6e 73 | 61 63 74 69 6f 6e 2a 20 |d(TTrans|action* |
|00000af0| 74 29 0d 7b 0d 09 2f 2f | 0d 09 2f 2f 20 49 66 20 |t).{..//|..// If |
|00000b00| 74 68 69 73 20 72 65 63 | 6f 72 64 20 69 73 20 70 |this rec|ord is p|
|00000b10| 61 72 74 20 6f 66 20 61 | 20 74 72 65 65 2c 20 74 |art of a| tree, t|
|00000b20| 68 65 6e 20 72 65 6d 6f | 76 65 20 69 74 0d 09 2f |hen remo|ve it../|
|00000b30| 2f 0d 09 69 66 28 74 68 | 69 73 2d 3e 52 65 63 6f |/..if(th|is->Reco|
|00000b40| 72 64 49 73 49 6e 41 54 | 72 65 65 28 74 29 29 0d |rdIsInAT|ree(t)).|
|00000b50| 09 09 74 68 69 73 2d 3e | 52 65 6d 6f 76 65 46 72 |..this->|RemoveFr|
|00000b60| 6f 6d 54 72 65 65 28 74 | 29 3b 0d 09 09 0d 09 49 |omTree(t|);.....I|
|00000b70| 4e 48 45 52 49 54 45 44 | 3a 3a 46 72 65 65 54 68 |NHERITED|::FreeTh|
|00000b80| 69 73 52 65 63 6f 72 64 | 28 74 29 3b 0d 7d 20 2f |isRecord|(t);.} /|
|00000b90| 2f 20 54 44 42 52 65 63 | 6f 72 64 3a 3a 46 72 65 |/ TDBRec|ord::Fre|
|00000ba0| 65 54 68 69 73 52 65 63 | 6f 72 64 0d 0d 2f 2f 2d |eThisRec|ord..//-|
|00000bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00000c00| 2f 2f 20 54 44 42 52 65 | 63 6f 72 64 3a 3a 46 72 |// TDBRe|cord::Fr|
|00000c10| 65 65 45 6e 74 69 72 65 | 54 72 65 65 0d 2f 2f 0d |eeEntire|Tree.//.|
|00000c20| 2f 2f 20 54 68 69 73 20 | 69 73 20 61 20 44 41 4e |// This |is a DAN|
|00000c30| 47 45 52 4f 55 53 20 72 | 6f 75 74 69 6e 65 3b 20 |GEROUS r|outine; |
|00000c40| 69 74 20 66 72 65 65 73 | 20 74 68 69 73 20 72 65 |it frees| this re|
|00000c50| 63 6f 72 64 20 61 6e 64 | 20 61 6c 6c 20 6f 66 20 |cord and| all of |
|00000c60| 69 74 73 20 73 69 62 6c | 69 6e 67 73 21 0d 2f 2f |its sibl|ings!.//|
|00000c70| 20 55 73 75 61 6c 6c 79 | 2c 20 79 6f 75 20 77 6f | Usually|, you wo|
|00000c80| 6e 27 74 20 77 61 6e 74 | 20 74 6f 20 63 61 6c 6c |n't want| to call|
|00000c90| 20 69 74 20 64 69 72 65 | 63 74 6c 79 3b 20 73 65 | it dire|ctly; se|
|00000ca0| 65 0d 2f 2f 20 54 44 42 | 52 65 63 6f 72 64 3a 3a |e.// TDB|Record::|
|00000cb0| 46 72 65 65 54 68 69 73 | 52 65 63 6f 72 64 2e 0d |FreeThis|Record..|
|00000cc0| 2f 2f 0d 2f 2f 20 4e 4f | 54 45 3a 20 20 4e 6f 20 |//.// NO|TE:  No |
|00000cd0| 65 66 66 6f 72 74 20 69 | 73 20 6d 61 64 65 20 74 |effort i|s made t|
|00000ce0| 6f 20 72 65 6d 6f 76 65 | 20 61 6e 79 20 65 78 69 |o remove| any exi|
|00000cf0| 73 74 69 6e 67 20 72 65 | 66 65 72 65 6e 63 65 73 |sting re|ferences|
|00000d00| 20 74 6f 20 74 68 69 73 | 20 74 72 65 65 3b 0d 2f | to this| tree;./|
|00000d10| 2f 20 69 74 20 69 73 20 | 61 73 73 75 6d 65 64 20 |/ it is |assumed |
|00000d20| 74 68 61 74 20 74 68 65 | 20 63 61 6c 6c 65 72 20 |that the| caller |
|00000d30| 77 69 6c 6c 20 64 6f 20 | 74 68 61 74 20 62 65 66 |will do |that bef|
|00000d40| 6f 72 65 20 64 65 6c 65 | 74 69 6e 67 20 74 68 65 |ore dele|ting the|
|00000d50| 20 74 72 65 65 2e 0d 2f | 2f 2d 2d 2d 2d 2d 2d 2d | tree../|/-------|
|00000d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 76 6f 69 64 20 54 |--------|-.void T|
|00000db0| 44 42 52 65 63 6f 72 64 | 3a 3a 46 72 65 65 45 6e |DBRecord|::FreeEn|
|00000dc0| 74 69 72 65 54 72 65 65 | 28 54 54 72 61 6e 73 61 |tireTree|(TTransa|
|00000dd0| 63 74 69 6f 6e 2a 20 74 | 29 0d 7b 0d 09 2f 2f 0d |ction* t|).{..//.|
|00000de0| 09 2f 2f 20 57 65 20 63 | 6f 75 6c 64 20 6a 75 73 |.// We c|ould jus|
|00000df0| 74 20 75 73 65 20 61 6e | 20 69 74 65 72 61 74 6f |t use an| iterato|
|00000e00| 72 2c 20 62 75 74 20 69 | 74 20 77 6f 75 6c 64 20 |r, but i|t would |
|00000e10| 62 65 20 69 6e 65 66 66 | 69 63 69 65 6e 74 20 74 |be ineff|icient t|
|00000e20| 6f 0d 09 2f 2f 20 63 61 | 6c 6c 20 52 65 6d 6f 76 |o..// ca|ll Remov|
|00000e30| 65 43 75 72 72 65 6e 74 | 20 6f 6e 20 65 76 65 72 |eCurrent| on ever|
|00000e40| 79 20 6e 6f 64 65 20 77 | 68 65 6e 20 77 65 20 61 |y node w|hen we a|
|00000e50| 72 65 20 6a 75 73 74 20 | 74 72 79 69 6e 67 20 74 |re just |trying t|
|00000e60| 6f 20 0d 09 2f 2f 20 64 | 65 6c 65 74 65 20 65 76 |o ..// d|elete ev|
|00000e70| 65 72 79 74 68 69 6e 67 | 20 61 6e 79 77 61 79 2e |erything| anyway.|
|00000e80| 0d 09 2f 2f 0d 09 41 43 | 6f 6e 73 74 3c 54 44 42 |..//..AC|onst<TDB|
|00000e90| 52 65 63 6f 72 64 3e 20 | 63 75 72 72 65 6e 74 20 |Record> |current |
|00000ea0| 3d 20 74 68 69 73 2d 3e | 46 69 72 73 74 49 74 65 |= this->|FirstIte|
|00000eb0| 6d 49 6e 53 75 62 54 72 | 65 65 28 74 29 3b 0d 09 |mInSubTr|ee(t);..|
|00000ec0| 77 68 69 6c 65 28 63 75 | 72 72 65 6e 74 2e 45 78 |while(cu|rrent.Ex|
|00000ed0| 69 73 74 73 28 29 29 0d | 09 7b 0d 09 09 41 43 6f |ists()).|.{...ACo|
|00000ee0| 6e 73 74 3c 54 44 42 52 | 65 63 6f 72 64 3e 20 6e |nst<TDBR|ecord> n|
|00000ef0| 65 78 74 3b 0d 09 09 0d | 09 09 2f 2f 0d 09 09 2f |ext;....|..//.../|
|00000f00| 2f 20 49 66 20 27 63 75 | 72 72 65 6e 74 27 20 68 |/ If 'cu|rrent' h|
|00000f10| 61 73 20 63 68 69 6c 64 | 72 65 6e 2c 20 74 68 65 |as child|ren, the|
|00000f20| 6e 20 67 6f 20 64 6f 77 | 6e 0d 09 09 2f 2f 20 74 |n go dow|n...// t|
|00000f30| 6f 20 74 68 65 20 6c 61 | 73 74 20 63 68 69 6c 64 |o the la|st child|
|00000f40| 20 69 6e 20 74 68 65 20 | 74 72 65 65 20 61 6e 64 | in the |tree and|
|00000f50| 20 64 6f 20 6e 6f 74 68 | 69 6e 67 0d 09 09 2f 2f | do noth|ing...//|
|00000f60| 20 65 6c 73 65 20 74 68 | 69 73 20 69 74 65 72 61 | else th|is itera|
|00000f70| 74 69 6f 6e 20 0d 09 09 | 2f 2f 0d 09 09 69 66 28 |tion ...|//...if(|
|00000f80| 63 75 72 72 65 6e 74 2d | 3e 48 61 73 4c 65 66 74 |current-|>HasLeft|
|00000f90| 53 69 62 6c 69 6e 67 28 | 74 29 29 0d 09 09 09 6e |Sibling(|t))....n|
|00000fa0| 65 78 74 20 3d 20 63 75 | 72 72 65 6e 74 2d 3e 46 |ext = cu|rrent->F|
|00000fb0| 69 72 73 74 49 74 65 6d | 49 6e 53 75 62 54 72 65 |irstItem|InSubTre|
|00000fc0| 65 28 74 29 3b 0d 09 09 | 65 6c 73 65 20 69 66 28 |e(t);...|else if(|
|00000fd0| 63 75 72 72 65 6e 74 2d | 3e 48 61 73 52 69 67 68 |current-|>HasRigh|
|00000fe0| 74 53 69 62 6c 69 6e 67 | 28 74 29 29 0d 09 09 09 |tSibling|(t))....|
|00000ff0| 6e 65 78 74 20 3d 20 63 | 75 72 72 65 6e 74 2d 3e |next = c|urrent->|
|00001000| 4c 61 73 74 49 74 65 6d | 49 6e 53 75 62 54 72 65 |LastItem|InSubTre|
|00001010| 65 28 74 29 3b 0d 09 09 | 2f 2f 0d 09 09 2f 2f 20 |e(t);...|//...// |
|00001020| 49 66 20 27 63 75 72 72 | 65 6e 74 27 20 68 61 73 |If 'curr|ent' has|
|00001030| 20 6e 6f 20 63 68 69 6c | 64 72 65 6e 2c 20 74 68 | no chil|dren, th|
|00001040| 65 6e 20 66 72 65 65 20 | 69 74 0d 09 09 2f 2f 0d |en free |it...//.|
|00001050| 09 09 65 6c 73 65 0d 09 | 09 7b 0d 09 09 09 2f 2f |..else..|.{....//|
|00001060| 0d 09 09 09 2f 2f 20 54 | 68 65 20 66 69 72 73 74 |....// T|he first|
|00001070| 20 74 68 69 6e 67 20 74 | 6f 20 64 6f 20 69 73 20 | thing t|o do is |
|00001080| 74 6f 20 67 6f 20 75 70 | 20 74 6f 20 74 68 65 0d |to go up| to the.|
|00001090| 09 09 09 2f 2f 20 70 61 | 72 65 6e 74 20 61 6e 64 |...// pa|rent and|
|000010a0| 20 72 65 6d 6f 76 65 20 | 74 68 65 20 6c 69 6e 6b | remove |the link|
|000010b0| 20 74 68 61 74 20 70 6f | 69 6e 74 73 20 74 6f 0d | that po|ints to.|
|000010c0| 09 09 09 2f 2f 20 74 68 | 65 20 72 65 63 6f 72 64 |...// th|e record|
|000010d0| 20 77 65 20 61 72 65 20 | 64 65 6c 65 74 69 6e 67 | we are |deleting|
|000010e0| 2e 20 20 4f 6e 63 65 20 | 74 68 65 20 6e 6f 64 65 |.  Once |the node|
|000010f0| 0d 09 09 09 2f 2f 20 74 | 6f 20 62 65 20 64 65 6c |....// t|o be del|
|00001100| 65 74 65 64 20 68 61 73 | 20 62 65 65 6e 20 73 6e |eted has| been sn|
|00001110| 69 70 70 65 64 20 66 72 | 6f 6d 20 74 68 65 20 74 |ipped fr|om the t|
|00001120| 72 65 65 2c 0d 09 09 09 | 2f 2f 20 77 65 20 64 65 |ree,....|// we de|
|00001130| 6c 65 74 65 20 69 74 2e | 0d 09 09 09 2f 2f 0d 09 |lete it.|....//..|
|00001140| 09 09 6e 65 78 74 20 3d | 20 63 75 72 72 65 6e 74 |..next =| current|
|00001150| 2d 3e 50 61 72 65 6e 74 | 53 69 62 6c 69 6e 67 28 |->Parent|Sibling(|
|00001160| 74 29 3b 0d 09 09 09 69 | 66 28 6e 65 78 74 2e 45 |t);....i|f(next.E|
|00001170| 78 69 73 74 73 28 29 29 | 0d 09 09 09 7b 0d 09 09 |xists())|....{...|
|00001180| 09 09 43 68 69 6c 64 49 | 64 65 6e 74 69 66 69 65 |..ChildI|dentifie|
|00001190| 72 20 77 68 69 63 68 43 | 68 69 6c 64 20 3d 20 6e |r whichC|hild = n|
|000011a0| 65 78 74 2d 3e 49 64 65 | 6e 74 69 66 79 43 68 69 |ext->Ide|ntifyChi|
|000011b0| 6c 64 28 74 2c 20 63 75 | 72 72 65 6e 74 29 3b 0d |ld(t, cu|rrent);.|
|000011c0| 09 09 09 09 28 74 68 69 | 73 2d 3e 54 72 61 6e 73 |....(thi|s->Trans|
|000011d0| 61 63 74 69 6f 6e 28 29 | 2d 3e 47 65 74 44 42 52 |action()|->GetDBR|
|000011e0| 65 63 6f 72 64 55 70 64 | 61 74 65 50 6f 69 6e 74 |ecordUpd|atePoint|
|000011f0| 65 72 28 6e 65 78 74 29 | 29 2d 3e 53 65 74 43 68 |er(next)|)->SetCh|
|00001200| 69 6c 64 4c 69 6e 6b 4f | 66 4e 65 77 50 61 72 65 |ildLinkO|fNewPare|
|00001210| 6e 74 28 74 2c 20 41 43 | 6f 6e 73 74 3c 54 44 42 |nt(t, AC|onst<TDB|
|00001220| 52 65 63 6f 72 64 3e 28 | 6e 69 6c 29 2c 20 77 68 |Record>(|nil), wh|
|00001230| 69 63 68 43 68 69 6c 64 | 29 3b 0d 09 09 09 7d 0d |ichChild|);....}.|
|00001240| 09 09 09 2f 2f 0d 09 09 | 09 2f 2f 20 53 65 74 20 |...//...|.// Set |
|00001250| 74 68 65 20 70 61 72 65 | 6e 74 20 73 69 62 6c 69 |the pare|nt sibli|
|00001260| 6e 67 20 6f 66 20 74 68 | 65 20 63 75 72 72 65 6e |ng of th|e curren|
|00001270| 74 20 6e 6f 64 65 20 74 | 6f 20 27 6e 69 6c 27 0d |t node t|o 'nil'.|
|00001280| 09 09 09 2f 2f 20 73 6f | 20 74 68 61 74 20 69 74 |...// so| that it|
|00001290| 20 77 69 6c 6c 20 6e 6f | 74 20 62 65 20 72 65 6d | will no|t be rem|
|000012a0| 6f 76 65 64 20 66 72 6f | 6d 20 74 68 65 20 74 72 |oved fro|m the tr|
|000012b0| 65 65 20 77 68 65 6e 0d | 09 09 09 2f 2f 20 77 65 |ee when.|...// we|
|000012c0| 20 63 61 6c 6c 20 27 46 | 72 65 65 54 68 69 73 52 | call 'F|reeThisR|
|000012d0| 65 63 6f 72 64 27 20 28 | 73 69 6e 63 65 20 77 65 |ecord' (|since we|
|000012e0| 20 6a 75 73 74 20 72 65 | 6d 6f 76 65 64 0d 09 09 | just re|moved...|
|000012f0| 09 2f 2f 20 69 74 20 6d | 61 6e 75 61 6c 6c 79 29 |.// it m|anually)|
|00001300| 2e 0d 09 09 09 2f 2f 0d | 09 09 09 28 74 68 69 73 |.....//.|...(this|
|00001310| 2d 3e 54 72 61 6e 73 61 | 63 74 69 6f 6e 28 29 2d |->Transa|ction()-|
|00001320| 3e 47 65 74 44 42 52 65 | 63 6f 72 64 55 70 64 61 |>GetDBRe|cordUpda|
|00001330| 74 65 50 6f 69 6e 74 65 | 72 28 63 75 72 72 65 6e |tePointe|r(curren|
|00001340| 74 29 29 2d 3e 53 65 74 | 50 61 72 65 6e 74 53 69 |t))->Set|ParentSi|
|00001350| 62 6c 69 6e 67 28 74 2c | 20 6e 69 6c 29 3b 0d 09 |bling(t,| nil);..|
|00001360| 09 09 28 74 68 69 73 2d | 3e 54 72 61 6e 73 61 63 |..(this-|>Transac|
|00001370| 74 69 6f 6e 28 29 2d 3e | 47 65 74 44 42 52 65 63 |tion()->|GetDBRec|
|00001380| 6f 72 64 55 70 64 61 74 | 65 50 6f 69 6e 74 65 72 |ordUpdat|ePointer|
|00001390| 28 63 75 72 72 65 6e 74 | 29 29 2d 3e 46 72 65 65 |(current|))->Free|
|000013a0| 54 68 69 73 52 65 63 6f | 72 64 28 74 29 3b 0d 09 |ThisReco|rd(t);..|
|000013b0| 09 7d 0d 09 09 0d 09 09 | 2f 2f 0d 09 09 2f 2f 20 |.}......|//...// |
|000013c0| 57 65 27 72 65 20 64 6f | 6e 65 20 77 69 74 68 20 |We're do|ne with |
|000013d0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 6e 6f 64 65 |the curr|ent node|
|000013e0| 20 28 66 6f 72 20 6e 6f | 77 2e 2e 2e 20 69 66 20 | (for no|w... if |
|000013f0| 69 74 20 68 61 64 0d 09 | 09 2f 2f 20 63 68 69 6c |it had..|.// chil|
|00001400| 64 72 65 6e 2c 20 77 65 | 27 6c 6c 20 63 6f 6d 65 |dren, we|'ll come|
|00001410| 20 62 61 63 6b 20 74 6f | 20 69 74 20 6c 61 74 65 | back to| it late|
|00001420| 72 29 3b 20 67 6f 20 6f | 6e 20 74 6f 20 74 68 65 |r); go o|n to the|
|00001430| 20 27 6e 65 78 74 27 20 | 6e 6f 64 65 2e 0d 09 09 | 'next' |node....|
|00001440| 2f 2f 0d 09 09 63 75 72 | 72 65 6e 74 20 3d 20 6e |//...cur|rent = n|
|00001450| 65 78 74 3b 0d 09 7d 0d | 7d 20 2f 2f 20 54 44 42 |ext;..}.|} // TDB|
|00001460| 52 65 63 6f 72 64 3a 3a | 46 72 65 65 45 6e 74 69 |Record::|FreeEnti|
|00001470| 72 65 54 72 65 65 0d 0d | 2f 2f 2d 2d 2d 2d 2d 2d |reTree..|//------|
|00001480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000014c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 2f 2f 20 54 44 |--------|--.// TD|
|000014d0| 42 52 65 63 6f 72 64 3a | 3a 49 64 65 6e 74 69 66 |BRecord:|:Identif|
|000014e0| 79 43 68 69 6c 64 0d 2f | 2f 0d 2f 2f 20 44 65 74 |yChild./|/.// Det|
|000014f0| 65 72 6d 69 6e 65 20 68 | 6f 77 20 27 74 65 73 74 |ermine h|ow 'test|
|00001500| 43 68 69 6c 64 27 20 69 | 73 20 6c 69 6e 6b 65 64 |Child' i|s linked|
|00001510| 20 74 6f 20 74 68 69 73 | 20 72 65 63 6f 72 64 2c | to this| record,|
|00001520| 20 6f 72 20 72 65 74 75 | 72 6e 0d 2f 2f 20 27 6b | or retu|rn.// 'k|
|00001530| 4e 6f 64 65 49 73 4e 6f | 74 41 43 68 69 6c 64 27 |NodeIsNo|tAChild'|
|00001540| 20 69 66 20 69 74 20 69 | 73 20 6e 6f 74 2e 0d 2f | if it i|s not../|
|00001550| 2f 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/-------|--------|
|00001560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015a0| 2d 0d 43 68 69 6c 64 49 | 64 65 6e 74 69 66 69 65 |-.ChildI|dentifie|
|000015b0| 72 20 54 44 42 52 65 63 | 6f 72 64 3a 3a 49 64 65 |r TDBRec|ord::Ide|
|000015c0| 6e 74 69 66 79 43 68 69 | 6c 64 28 54 54 72 61 6e |ntifyChi|ld(TTran|
|000015d0| 73 61 63 74 69 6f 6e 2a | 20 74 2c 20 41 43 6f 6e |saction*| t, ACon|
|000015e0| 73 74 3c 54 44 42 52 65 | 63 6f 72 64 3e 20 74 65 |st<TDBRe|cord> te|
|000015f0| 73 74 43 68 69 6c 64 29 | 20 63 6f 6e 73 74 0d 7b |stChild)| const.{|
|00001600| 0d 09 52 65 71 75 69 72 | 65 28 74 65 73 74 43 68 |..Requir|e(testCh|
|00001610| 69 6c 64 2e 45 78 69 73 | 74 73 28 29 29 3b 0d 09 |ild.Exis|ts());..|
|00001620| 0d 09 43 68 69 6c 64 49 | 64 65 6e 74 69 66 69 65 |..ChildI|dentifie|
|00001630| 72 20 63 68 69 6c 64 49 | 44 20 3d 20 6b 4e 6f 64 |r childI|D = kNod|
|00001640| 65 49 73 4e 6f 74 41 43 | 68 69 6c 64 3b 0d 09 6c |eIsNotAC|hild;..l|
|00001650| 6f 6e 67 20 74 65 73 74 | 43 68 69 6c 64 49 6e 64 |ong test|ChildInd|
|00001660| 65 78 20 3d 20 74 65 73 | 74 43 68 69 6c 64 2d 3e |ex = tes|tChild->|
|00001670| 52 65 63 6f 72 64 49 6e | 64 65 78 28 29 3b 0d 0d |RecordIn|dex();..|
|00001680| 09 2f 2f 0d 09 2f 2f 20 | 46 69 6e 64 20 61 20 6c |.//..// |Find a l|
|00001690| 69 6e 6b 20 74 68 61 74 | 20 70 6f 69 6e 74 73 20 |ink that| points |
|000016a0| 74 6f 20 74 68 65 20 74 | 65 73 74 43 68 69 6c 64 |to the t|estChild|
|000016b0| 0d 09 2f 2f 0d 09 69 66 | 28 74 68 69 73 2d 3e 4c |..//..if|(this->L|
|000016c0| 65 66 74 53 69 62 6c 69 | 6e 67 49 6e 64 65 78 28 |eftSibli|ngIndex(|
|000016d0| 74 29 20 3d 3d 20 74 65 | 73 74 43 68 69 6c 64 49 |t) == te|stChildI|
|000016e0| 6e 64 65 78 29 0d 09 09 | 63 68 69 6c 64 49 44 20 |ndex)...|childID |
|000016f0| 3d 20 6b 4e 6f 64 65 49 | 73 4c 65 66 74 43 68 69 |= kNodeI|sLeftChi|
|00001700| 6c 64 3b 0d 09 65 6c 73 | 65 20 69 66 28 74 68 69 |ld;..els|e if(thi|
|00001710| 73 2d 3e 52 69 67 68 74 | 53 69 62 6c 69 6e 67 49 |s->Right|SiblingI|
|00001720| 6e 64 65 78 28 74 29 20 | 3d 3d 20 74 65 73 74 43 |ndex(t) |== testC|
|00001730| 68 69 6c 64 49 6e 64 65 | 78 29 0d 09 09 63 68 69 |hildInde|x)...chi|
|00001740| 6c 64 49 44 20 3d 20 6b | 4e 6f 64 65 49 73 52 69 |ldID = k|NodeIsRi|
|00001750| 67 68 74 43 68 69 6c 64 | 3b 0d 09 65 6c 73 65 20 |ghtChild|;..else |
|00001760| 69 66 28 74 68 69 73 2d | 3e 52 65 63 6f 72 64 43 |if(this-|>RecordC|
|00001770| 61 6e 48 61 76 65 45 6c | 65 6d 65 6e 74 73 28 74 |anHaveEl|ements(t|
|00001780| 29 20 26 26 20 28 74 68 | 69 73 2d 3e 54 6f 70 43 |) && (th|is->TopC|
|00001790| 68 69 6c 64 49 6e 64 65 | 78 28 74 29 20 3d 3d 20 |hildInde|x(t) == |
|000017a0| 74 65 73 74 43 68 69 6c | 64 49 6e 64 65 78 29 29 |testChil|dIndex))|
|000017b0| 0d 09 09 63 68 69 6c 64 | 49 44 20 3d 20 6b 4e 6f |...child|ID = kNo|
|000017c0| 64 65 49 73 54 6f 70 4f | 66 45 6c 65 6d 65 6e 74 |deIsTopO|fElement|
|000017d0| 54 72 65 65 3b 0d 09 65 | 6c 73 65 20 69 66 28 74 |Tree;..e|lse if(t|
|000017e0| 68 69 73 2d 3e 52 65 63 | 6f 72 64 43 61 6e 48 61 |his->Rec|ordCanHa|
|000017f0| 76 65 50 72 6f 70 65 72 | 74 69 65 73 28 74 29 20 |veProper|ties(t) |
|00001800| 26 26 20 28 74 68 69 73 | 2d 3e 54 6f 70 50 72 6f |&& (this|->TopPro|
|00001810| 70 65 72 74 79 49 6e 64 | 65 78 28 74 29 20 3d 3d |pertyInd|ex(t) ==|
|00001820| 20 74 65 73 74 43 68 69 | 6c 64 49 6e 64 65 78 29 | testChi|ldIndex)|
|00001830| 29 0d 09 09 63 68 69 6c | 64 49 44 20 3d 20 6b 4e |)...chil|dID = kN|
|00001840| 6f 64 65 49 73 54 6f 70 | 4f 66 50 72 6f 70 65 72 |odeIsTop|OfProper|
|00001850| 74 79 54 72 65 65 3b 0d | 09 0d 09 2f 2f 0d 09 2f |tyTree;.|...//../|
|00001860| 2f 20 4d 61 6b 65 20 73 | 75 72 65 20 74 68 61 74 |/ Make s|ure that|
|00001870| 20 74 68 65 20 27 74 65 | 73 74 43 68 69 6c 64 27 | the 'te|stChild'|
|00001880| 20 69 73 20 6d 61 72 6b | 65 64 20 61 73 20 62 65 | is mark|ed as be|
|00001890| 69 6e 67 0d 09 2f 2f 20 | 61 74 20 74 68 65 20 74 |ing..// |at the t|
|000018a0| 6f 70 20 6f 66 20 74 68 | 65 20 74 72 65 65 20 69 |op of th|e tree i|
|000018b0| 66 20 69 74 20 69 73 20 | 69 6e 20 61 20 27 74 6f |f it is |in a 'to|
|000018c0| 70 20 6f 66 20 74 72 65 | 65 27 0d 09 2f 2f 20 70 |p of tre|e'..// p|
|000018d0| 6f 69 6e 74 65 72 2c 20 | 61 6e 64 20 6d 61 6b 65 |ointer, |and make|
|000018e0| 20 73 75 72 65 20 74 68 | 61 74 20 69 74 20 69 73 | sure th|at it is|
|000018f0| 20 6e 6f 74 20 6d 61 72 | 6b 65 64 20 61 73 20 62 | not mar|ked as b|
|00001900| 65 69 6e 67 0d 09 2f 2f | 20 61 74 20 74 68 65 20 |eing..//| at the |
|00001910| 74 6f 70 20 6f 66 20 74 | 68 65 20 74 72 65 65 20 |top of t|he tree |
|00001920| 69 66 20 69 74 20 69 73 | 20 6e 6f 74 2e 0d 09 2f |if it is| not.../|
|00001930| 2f 0d 09 69 66 28 28 63 | 68 69 6c 64 49 44 20 3d |/..if((c|hildID =|
|00001940| 3d 20 6b 4e 6f 64 65 49 | 73 4c 65 66 74 43 68 69 |= kNodeI|sLeftChi|
|00001950| 6c 64 29 20 7c 7c 20 28 | 63 68 69 6c 64 49 44 20 |ld) || (|childID |
|00001960| 3d 3d 20 6b 4e 6f 64 65 | 49 73 52 69 67 68 74 43 |== kNode|IsRightC|
|00001970| 68 69 6c 64 29 29 0d 09 | 09 52 65 71 75 69 72 65 |hild))..|.Require|
|00001980| 28 74 65 73 74 43 68 69 | 6c 64 2d 3e 52 65 63 6f |(testChi|ld->Reco|
|00001990| 72 64 49 73 41 74 54 6f | 70 4f 66 54 72 65 65 28 |rdIsAtTo|pOfTree(|
|000019a0| 74 29 20 3d 3d 20 66 61 | 6c 73 65 29 3b 0d 09 69 |t) == fa|lse);..i|
|000019b0| 66 28 28 63 68 69 6c 64 | 49 44 20 3d 3d 20 6b 4e |f((child|ID == kN|
|000019c0| 6f 64 65 49 73 54 6f 70 | 4f 66 45 6c 65 6d 65 6e |odeIsTop|OfElemen|
|000019d0| 74 54 72 65 65 29 20 7c | 7c 20 28 63 68 69 6c 64 |tTree) ||| (child|
|000019e0| 49 44 20 3d 3d 20 6b 4e | 6f 64 65 49 73 54 6f 70 |ID == kN|odeIsTop|
|000019f0| 4f 66 50 72 6f 70 65 72 | 74 79 54 72 65 65 29 29 |OfProper|tyTree))|
|00001a00| 0d 09 09 52 65 71 75 69 | 72 65 28 74 65 73 74 43 |...Requi|re(testC|
|00001a10| 68 69 6c 64 2d 3e 52 65 | 63 6f 72 64 49 73 41 74 |hild->Re|cordIsAt|
|00001a20| 54 6f 70 4f 66 54 72 65 | 65 28 74 29 20 3d 3d 20 |TopOfTre|e(t) == |
|00001a30| 74 72 75 65 29 3b 0d 0d | 09 72 65 74 75 72 6e 20 |true);..|.return |
|00001a40| 63 68 69 6c 64 49 44 3b | 0d 7d 20 2f 2f 20 54 44 |childID;|.} // TD|
|00001a50| 42 52 65 63 6f 72 64 3a | 3a 49 64 65 6e 74 69 66 |BRecord:|:Identif|
|00001a60| 79 43 68 69 6c 64 0d 0d | 2f 2f 2d 2d 2d 2d 2d 2d |yChild..|//------|
|00001a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 2f 2f 20 54 44 |--------|--.// TD|
|00001ac0| 42 52 65 63 6f 72 64 3a | 3a 44 65 65 70 65 73 74 |BRecord:|:Deepest|
|00001ad0| 53 75 62 74 72 65 65 0d | 2f 2f 0d 2f 2f 20 44 65 |Subtree.|//.// De|
|00001ae0| 62 75 67 67 69 6e 67 20 | 66 75 6e 63 74 69 6f 6e |bugging |function|
|00001af0| 20 6f 6e 6c 79 0d 2f 2f | 2d 2d 2d 2d 2d 2d 2d 2d | only.//|--------|
|00001b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b40| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 6c 6f 6e 67 20 54 44 |--------|.long TD|
|00001b50| 42 52 65 63 6f 72 64 3a | 3a 44 65 65 70 65 73 74 |BRecord:|:Deepest|
|00001b60| 53 75 62 74 72 65 65 28 | 54 54 72 61 6e 73 61 63 |Subtree(|TTransac|
|00001b70| 74 69 6f 6e 2a 20 74 29 | 20 63 6f 6e 73 74 0d 7b |tion* t)| const.{|
|00001b80| 0d 09 6c 6f 6e 67 20 6c | 65 66 74 44 65 70 74 68 |..long l|eftDepth|
|00001b90| 20 3d 20 30 3b 0d 09 41 | 43 6f 6e 73 74 3c 54 44 | = 0;..A|Const<TD|
|00001ba0| 42 52 65 63 6f 72 64 3e | 20 6c 65 66 74 20 3d 20 |BRecord>| left = |
|00001bb0| 74 68 69 73 2d 3e 4c 65 | 66 74 53 69 62 6c 69 6e |this->Le|ftSiblin|
|00001bc0| 67 28 74 29 3b 0d 09 69 | 66 28 6c 65 66 74 2e 45 |g(t);..i|f(left.E|
|00001bd0| 78 69 73 74 73 28 29 29 | 0d 09 7b 0d 09 09 6c 65 |xists())|..{...le|
|00001be0| 66 74 44 65 70 74 68 20 | 3d 20 31 20 2b 20 6c 65 |ftDepth |= 1 + le|
|00001bf0| 66 74 2d 3e 44 65 65 70 | 65 73 74 53 75 62 74 72 |ft->Deep|estSubtr|
|00001c00| 65 65 28 74 29 3b 0d 09 | 7d 0d 09 6c 6f 6e 67 20 |ee(t);..|}..long |
|00001c10| 72 69 67 68 74 44 65 70 | 74 68 20 3d 20 30 3b 0d |rightDep|th = 0;.|
|00001c20| 09 41 43 6f 6e 73 74 3c | 54 44 42 52 65 63 6f 72 |.AConst<|TDBRecor|
|00001c30| 64 3e 20 72 69 67 68 74 | 20 3d 20 74 68 69 73 2d |d> right| = this-|
|00001c40| 3e 52 69 67 68 74 53 69 | 62 6c 69 6e 67 28 74 29 |>RightSi|bling(t)|
|00001c50| 3b 0d 09 69 66 28 72 69 | 67 68 74 2e 45 78 69 73 |;..if(ri|ght.Exis|
|00001c60| 74 73 28 29 29 0d 09 7b | 0d 09 09 72 69 67 68 74 |ts())..{|...right|
|00001c70| 44 65 70 74 68 20 3d 20 | 31 20 2b 20 72 69 67 68 |Depth = |1 + righ|
|00001c80| 74 2d 3e 44 65 65 70 65 | 73 74 53 75 62 74 72 65 |t->Deepe|stSubtre|
|00001c90| 65 28 74 29 3b 0d 09 7d | 0d 09 0d 09 72 65 74 75 |e(t);..}|....retu|
|00001ca0| 72 6e 20 72 69 67 68 74 | 44 65 70 74 68 20 3e 20 |rn right|Depth > |
|00001cb0| 6c 65 66 74 44 65 70 74 | 68 20 3f 20 72 69 67 68 |leftDept|h ? righ|
|00001cc0| 74 44 65 70 74 68 20 3a | 20 6c 65 66 74 44 65 70 |tDepth :| leftDep|
|00001cd0| 74 68 3b 0d 7d 20 2f 2f | 20 54 44 42 52 65 63 6f |th;.} //| TDBReco|
|00001ce0| 72 64 3a 3a 44 65 65 70 | 65 73 74 53 75 62 74 72 |rd::Deep|estSubtr|
|00001cf0| 65 65 0d 0d 2f 2f 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ee..//--|--------|
|00001d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d40| 2d 2d 2d 2d 2d 2d 0d 2f | 2f 20 54 44 42 52 65 63 |------./|/ TDBRec|
|00001d50| 6f 72 64 3a 3a 56 65 72 | 69 66 79 0d 2f 2f 2d 2d |ord::Ver|ify.//--|
|00001d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 76 |--------|------.v|
|00001db0| 6f 69 64 20 54 44 42 52 | 65 63 6f 72 64 3a 3a 56 |oid TDBR|ecord::V|
|00001dc0| 65 72 69 66 79 28 54 54 | 72 61 6e 73 61 63 74 69 |erify(TT|ransacti|
|00001dd0| 6f 6e 2a 20 74 2c 20 42 | 6f 6f 6c 65 61 6e 20 76 |on* t, B|oolean v|
|00001de0| 65 72 69 66 79 44 65 65 | 70 20 2f 2a 20 3d 20 66 |erifyDee|p /* = f|
|00001df0| 61 6c 73 65 20 2a 2f 29 | 20 63 6f 6e 73 74 0d 7b |alse */)| const.{|
|00001e00| 0d 09 69 66 28 09 28 74 | 68 69 73 2d 3e 52 65 63 |..if(.(t|his->Rec|
|00001e10| 6f 72 64 49 6e 64 65 78 | 28 29 20 3d 3d 20 74 68 |ordIndex|() == th|
|00001e20| 69 73 2d 3e 50 61 72 65 | 6e 74 53 69 62 6c 69 6e |is->Pare|ntSiblin|
|00001e30| 67 49 6e 64 65 78 28 74 | 29 29 20 7c 7c 0d 09 09 |gIndex(t|)) ||...|
|00001e40| 28 74 68 69 73 2d 3e 52 | 65 63 6f 72 64 49 6e 64 |(this->R|ecordInd|
|00001e50| 65 78 28 29 20 3d 3d 20 | 74 68 69 73 2d 3e 4c 65 |ex() == |this->Le|
|00001e60| 66 74 53 69 62 6c 69 6e | 67 49 6e 64 65 78 28 74 |ftSiblin|gIndex(t|
|00001e70| 29 29 20 7c 7c 0d 09 09 | 28 74 68 69 73 2d 3e 52 |)) ||...|(this->R|
|00001e80| 65 63 6f 72 64 49 6e 64 | 65 78 28 29 20 3d 3d 20 |ecordInd|ex() == |
|00001e90| 74 68 69 73 2d 3e 52 69 | 67 68 74 53 69 62 6c 69 |this->Ri|ghtSibli|
|00001ea0| 6e 67 49 6e 64 65 78 28 | 74 29 29 20 29 0d 09 09 |ngIndex(|t)) )...|
|00001eb0| 44 65 62 75 67 53 74 72 | 28 22 5c 70 70 54 44 42 |DebugStr|("\ppTDB|
|00001ec0| 52 65 63 6f 72 64 3a 3a | 56 65 72 69 66 79 20 72 |Record::|Verify r|
|00001ed0| 65 63 6f 72 64 20 70 6f | 69 6e 74 73 20 61 74 20 |ecord po|ints at |
|00001ee0| 69 74 73 65 6c 66 21 22 | 29 3b 0d 0d 09 2f 2f 0d |itself!"|);...//.|
|00001ef0| 09 2f 2f 20 46 69 72 73 | 74 20 63 68 65 63 6b 20 |.// Firs|t check |
|00001f00| 6f 75 74 20 74 68 65 20 | 70 61 72 65 6e 74 20 73 |out the |parent s|
|00001f10| 69 62 6c 69 6e 67 20 6c | 69 6e 6b 0d 09 2f 2f 0d |ibling l|ink..//.|
|00001f20| 09 41 43 6f 6e 73 74 3c | 54 44 42 52 65 63 6f 72 |.AConst<|TDBRecor|
|00001f30| 64 3e 20 70 61 72 65 6e | 74 20 3d 20 74 68 69 73 |d> paren|t = this|
|00001f40| 2d 3e 4c 69 74 65 72 61 | 6c 50 61 72 65 6e 74 53 |->Litera|lParentS|
|00001f50| 69 62 6c 69 6e 67 28 74 | 29 3b 0d 09 69 66 28 70 |ibling(t|);..if(p|
|00001f60| 61 72 65 6e 74 2e 45 78 | 69 73 74 73 28 29 29 0d |arent.Ex|ists()).|
|00001f70| 09 7b 0d 09 09 69 66 28 | 70 61 72 65 6e 74 2d 3e |.{...if(|parent->|
|00001f80| 49 64 65 6e 74 69 66 79 | 43 68 69 6c 64 28 74 2c |Identify|Child(t,|
|00001f90| 20 41 43 6f 6e 73 74 3c | 54 44 42 52 65 63 6f 72 | AConst<|TDBRecor|
|00001fa0| 64 3e 28 74 68 69 73 29 | 29 20 3d 3d 20 6b 4e 6f |d>(this)|) == kNo|
|00001fb0| 64 65 49 73 4e 6f 74 41 | 43 68 69 6c 64 29 0d 09 |deIsNotA|Child)..|
|00001fc0| 09 09 44 65 62 75 67 53 | 74 72 28 22 5c 70 54 44 |..DebugS|tr("\pTD|
|00001fd0| 42 52 65 63 6f 72 64 3a | 3a 56 65 72 69 66 79 20 |BRecord:|:Verify |
|00001fe0| 70 61 72 65 6e 74 20 64 | 6f 65 73 6e 27 74 20 70 |parent d|oesn't p|
|00001ff0| 6f 69 6e 74 20 62 61 63 | 6b 22 29 3b 0d 09 7d 0d |oint bac|k");..}.|
|00002000| 09 0d 09 2f 2f 0d 09 2f | 2f 20 4e 65 78 74 20 63 |...//../|/ Next c|
|00002010| 68 65 63 6b 20 6c 65 66 | 74 20 61 6e 64 20 72 69 |heck lef|t and ri|
|00002020| 67 68 74 20 73 69 62 6c | 69 6e 67 73 0d 09 2f 2f |ght sibl|ings..//|
|00002030| 0d 09 41 43 6f 6e 73 74 | 3c 54 44 42 52 65 63 6f |..AConst|<TDBReco|
|00002040| 72 64 3e 20 6c 65 66 74 | 20 3d 20 74 68 69 73 2d |rd> left| = this-|
|00002050| 3e 4c 65 66 74 53 69 62 | 6c 69 6e 67 28 74 29 3b |>LeftSib|ling(t);|
|00002060| 0d 09 69 66 28 6c 65 66 | 74 2e 45 78 69 73 74 73 |..if(lef|t.Exists|
|00002070| 28 29 29 0d 09 7b 0d 09 | 09 69 66 28 6c 65 66 74 |())..{..|.if(left|
|00002080| 2d 3e 4c 69 74 65 72 61 | 6c 50 61 72 65 6e 74 53 |->Litera|lParentS|
|00002090| 69 62 6c 69 6e 67 28 74 | 29 2d 3e 52 65 63 6f 72 |ibling(t|)->Recor|
|000020a0| 64 49 6e 64 65 78 28 29 | 20 21 3d 20 74 68 69 73 |dIndex()| != this|
|000020b0| 2d 3e 52 65 63 6f 72 64 | 49 6e 64 65 78 28 29 29 |->Record|Index())|
|000020c0| 0d 09 09 09 44 65 62 75 | 67 53 74 72 28 22 5c 70 |....Debu|gStr("\p|
|000020d0| 54 44 42 52 65 63 6f 72 | 64 3a 3a 56 65 72 69 66 |TDBRecor|d::Verif|
|000020e0| 79 20 6c 65 66 74 20 73 | 69 62 6c 69 6e 67 20 64 |y left s|ibling d|
|000020f0| 6f 65 73 6e 27 74 20 70 | 6f 69 6e 74 20 62 61 63 |oesn't p|oint bac|
|00002100| 6b 22 29 3b 0d 09 7d 0d | 09 41 43 6f 6e 73 74 3c |k");..}.|.AConst<|
|00002110| 54 44 42 52 65 63 6f 72 | 64 3e 20 72 69 67 68 74 |TDBRecor|d> right|
|00002120| 20 3d 20 74 68 69 73 2d | 3e 52 69 67 68 74 53 69 | = this-|>RightSi|
|00002130| 62 6c 69 6e 67 28 74 29 | 3b 0d 09 69 66 28 72 69 |bling(t)|;..if(ri|
|00002140| 67 68 74 2e 45 78 69 73 | 74 73 28 29 29 0d 09 7b |ght.Exis|ts())..{|
|00002150| 0d 09 09 69 66 28 72 69 | 67 68 74 2d 3e 4c 69 74 |...if(ri|ght->Lit|
|00002160| 65 72 61 6c 50 61 72 65 | 6e 74 53 69 62 6c 69 6e |eralPare|ntSiblin|
|00002170| 67 28 74 29 2d 3e 52 65 | 63 6f 72 64 49 6e 64 65 |g(t)->Re|cordInde|
|00002180| 78 28 29 20 21 3d 20 74 | 68 69 73 2d 3e 52 65 63 |x() != t|his->Rec|
|00002190| 6f 72 64 49 6e 64 65 78 | 28 29 29 0d 09 09 09 44 |ordIndex|())....D|
|000021a0| 65 62 75 67 53 74 72 28 | 22 5c 70 54 44 42 52 65 |ebugStr(|"\pTDBRe|
|000021b0| 63 6f 72 64 3a 3a 56 65 | 72 69 66 79 20 72 69 67 |cord::Ve|rify rig|
|000021c0| 68 74 20 73 69 62 6c 69 | 6e 67 20 64 6f 65 73 6e |ht sibli|ng doesn|
|000021d0| 27 74 20 70 6f 69 6e 74 | 20 62 61 63 6b 22 29 3b |'t point| back");|
|000021e0| 0d 09 7d 0d 09 0d 09 2f | 2f 0d 09 2f 2f 20 49 6e |..}..../|/..// In|
|000021f0| 20 64 65 65 70 20 76 65 | 72 69 66 69 65 73 2c 20 | deep ve|rifies, |
|00002200| 77 65 20 72 65 63 75 72 | 73 69 76 65 6c 79 20 76 |we recur|sively v|
|00002210| 65 72 69 66 79 20 74 68 | 65 20 6c 65 66 74 20 61 |erify th|e left a|
|00002220| 6e 64 20 72 69 67 68 74 | 0d 09 2f 2f 20 63 68 69 |nd right|..// chi|
|00002230| 6c 64 72 65 6e 2c 20 61 | 6e 64 20 77 65 20 61 6c |ldren, a|nd we al|
|00002240| 73 6f 20 74 65 73 74 20 | 74 68 65 20 74 72 65 65 |so test |the tree|
|00002250| 20 6f 72 64 65 72 20 6f | 66 20 74 68 69 73 20 6e | order o|f this n|
|00002260| 6f 64 65 73 0d 09 2f 2f | 20 70 72 65 64 65 63 65 |odes..//| predece|
|00002270| 73 73 6f 72 20 61 6e 64 | 20 73 75 63 63 65 73 73 |ssor and| success|
|00002280| 6f 72 2c 20 61 6e 64 20 | 63 68 65 63 6b 20 6f 75 |or, and |check ou|
|00002290| 74 20 74 68 65 20 6e 6f | 64 65 27 73 20 62 61 6c |t the no|de's bal|
|000022a0| 61 6e 63 65 20 66 61 63 | 74 6f 72 2e 0d 09 2f 2f |ance fac|tor...//|
|000022b0| 0d 09 69 66 28 76 65 72 | 69 66 79 44 65 65 70 29 |..if(ver|ifyDeep)|
|000022c0| 0d 09 7b 0d 09 09 69 66 | 28 6c 65 66 74 2e 45 78 |..{...if|(left.Ex|
|000022d0| 69 73 74 73 28 29 29 0d | 09 09 09 6c 65 66 74 2d |ists()).|...left-|
|000022e0| 3e 56 65 72 69 66 79 28 | 74 2c 20 76 65 72 69 66 |>Verify(|t, verif|
|000022f0| 79 44 65 65 70 29 3b 0d | 09 09 69 66 28 72 69 67 |yDeep);.|..if(rig|
|00002300| 68 74 2e 45 78 69 73 74 | 73 28 29 29 0d 09 09 09 |ht.Exist|s())....|
|00002310| 72 69 67 68 74 2d 3e 56 | 65 72 69 66 79 28 74 2c |right->V|erify(t,|
|00002320| 20 76 65 72 69 66 79 44 | 65 65 70 29 3b 0d 09 09 | verifyD|eep);...|
|00002330| 0d 23 69 66 20 30 0d 09 | 09 2f 2f 0d 09 09 2f 2f |.#if 0..|.//...//|
|00002340| 20 54 65 73 74 20 74 68 | 65 20 6f 72 64 65 72 69 | Test th|e orderi|
|00002350| 6e 67 20 6f 66 20 74 68 | 65 20 65 6c 65 6d 65 6e |ng of th|e elemen|
|00002360| 74 73 20 69 6e 20 74 68 | 65 20 74 72 65 65 0d 09 |ts in th|e tree..|
|00002370| 09 2f 2f 20 28 6e 6f 74 | 65 3a 20 65 6c 65 6d 65 |.// (not|e: eleme|
|00002380| 6e 74 73 20 61 72 65 20 | 73 6f 6d 65 74 69 6d 65 |nts are |sometime|
|00002390| 73 20 74 65 6d 70 6f 72 | 61 72 69 6c 79 20 6d 69 |s tempor|arily mi|
|000023a0| 73 2d 6f 72 64 65 72 65 | 64 2c 0d 09 09 2f 2f 20 |s-ordere|d,...// |
|000023b0| 74 68 65 6e 20 61 72 65 | 20 70 75 74 20 62 61 63 |then are| put bac|
|000023c0| 6b 20 69 6e 74 6f 20 6f | 72 64 65 72 2c 20 68 65 |k into o|rder, he|
|000023d0| 6e 73 65 20 74 68 65 20 | 23 69 66 20 30 29 0d 09 |nse the |#if 0)..|
|000023e0| 09 2f 2f 0d 09 09 41 43 | 6f 6e 73 74 3c 54 44 42 |.//...AC|onst<TDB|
|000023f0| 52 65 63 6f 72 64 3e 20 | 70 72 65 64 65 63 65 73 |Record> |predeces|
|00002400| 73 6f 72 20 3d 20 74 68 | 69 73 2d 3e 50 72 65 76 |sor = th|is->Prev|
|00002410| 69 6f 75 73 49 74 65 6d | 49 6e 54 72 65 65 28 74 |iousItem|InTree(t|
|00002420| 29 3b 0d 09 09 69 66 28 | 70 72 65 64 65 63 65 73 |);...if(|predeces|
|00002430| 73 6f 72 2e 45 78 69 73 | 74 73 28 29 29 0d 09 09 |sor.Exis|ts())...|
|00002440| 7b 0d 09 09 09 69 66 28 | 74 68 69 73 2d 3e 43 6f |{....if(|this->Co|
|00002450| 6d 70 61 72 65 54 72 65 | 65 4f 72 64 65 72 28 74 |mpareTre|eOrder(t|
|00002460| 2c 20 70 72 65 64 65 63 | 65 73 73 6f 72 29 20 21 |, predec|essor) !|
|00002470| 3d 20 6b 53 65 63 6f 6e | 64 4f 62 6a 65 63 74 43 |= kSecon|dObjectC|
|00002480| 6f 6d 65 73 42 65 66 6f | 72 65 29 0d 09 09 09 09 |omesBefo|re).....|
|00002490| 44 65 62 75 67 53 74 72 | 28 22 5c 70 52 65 63 6f |DebugStr|("\pReco|
|000024a0| 72 64 20 73 68 6f 75 6c | 64 20 67 6f 20 62 65 66 |rd shoul|d go bef|
|000024b0| 6f 72 65 20 69 74 73 20 | 70 72 65 64 65 63 65 73 |ore its |predeces|
|000024c0| 73 6f 72 21 22 29 3b 0d | 09 09 7d 0d 09 09 41 43 |sor!");.|..}...AC|
|000024d0| 6f 6e 73 74 3c 54 44 42 | 52 65 63 6f 72 64 3e 20 |onst<TDB|Record> |
|000024e0| 73 75 63 63 65 73 73 6f | 72 20 3d 20 74 68 69 73 |successo|r = this|
|000024f0| 2d 3e 4e 65 78 74 49 74 | 65 6d 49 6e 54 72 65 65 |->NextIt|emInTree|
|00002500| 28 74 29 3b 0d 09 09 69 | 66 28 73 75 63 63 65 73 |(t);...i|f(succes|
|00002510| 73 6f 72 2e 45 78 69 73 | 74 73 28 29 29 0d 09 09 |sor.Exis|ts())...|
|00002520| 7b 0d 09 09 09 69 66 28 | 74 68 69 73 2d 3e 43 6f |{....if(|this->Co|
|00002530| 6d 70 61 72 65 54 72 65 | 65 4f 72 64 65 72 28 74 |mpareTre|eOrder(t|
|00002540| 2c 20 73 75 63 63 65 73 | 73 6f 72 29 20 21 3d 20 |, succes|sor) != |
|00002550| 6b 53 65 63 6f 6e 64 4f | 62 6a 65 63 74 43 6f 6d |kSecondO|bjectCom|
|00002560| 65 73 41 66 74 65 72 29 | 0d 09 09 09 09 44 65 62 |esAfter)|.....Deb|
|00002570| 75 67 53 74 72 28 22 5c | 70 52 65 63 6f 72 64 20 |ugStr("\|pRecord |
|00002580| 73 68 6f 75 6c 64 20 63 | 6f 6d 65 20 61 66 74 65 |should c|ome afte|
|00002590| 72 20 69 74 73 20 73 75 | 63 63 65 73 73 6f 72 21 |r its su|ccessor!|
|000025a0| 22 29 3b 0d 09 09 7d 0d | 23 65 6e 64 69 66 0d 09 |");...}.|#endif..|
|000025b0| 09 0d 09 09 2f 2f 0d 09 | 09 2f 2f 20 46 69 6e 61 |....//..|.// Fina|
|000025c0| 6c 6c 79 2c 20 74 65 73 | 74 20 74 68 65 20 72 65 |lly, tes|t the re|
|000025d0| 63 6f 72 64 65 64 20 62 | 61 6c 61 6e 63 65 20 66 |corded b|alance f|
|000025e0| 61 63 74 6f 72 20 61 67 | 61 69 6e 73 74 20 72 65 |actor ag|ainst re|
|000025f0| 61 6c 69 74 79 0d 09 09 | 2f 2f 0d 09 09 6c 6f 6e |ality...|//...lon|
|00002600| 67 20 6c 65 66 74 44 65 | 70 74 68 20 3d 20 30 3b |g leftDe|pth = 0;|
|00002610| 0d 09 09 69 66 28 6c 65 | 66 74 2e 45 78 69 73 74 |...if(le|ft.Exist|
|00002620| 73 28 29 29 0d 09 09 09 | 6c 65 66 74 44 65 70 74 |s())....|leftDept|
|00002630| 68 20 3d 20 31 20 2b 20 | 6c 65 66 74 2d 3e 44 65 |h = 1 + |left->De|
|00002640| 65 70 65 73 74 53 75 62 | 74 72 65 65 28 74 29 3b |epestSub|tree(t);|
|00002650| 0d 09 09 6c 6f 6e 67 20 | 72 69 67 68 74 44 65 70 |...long |rightDep|
|00002660| 74 68 20 3d 20 30 3b 0d | 09 09 69 66 28 72 69 67 |th = 0;.|..if(rig|
|00002670| 68 74 2e 45 78 69 73 74 | 73 28 29 29 0d 09 09 09 |ht.Exist|s())....|
|00002680| 72 69 67 68 74 44 65 70 | 74 68 20 3d 20 31 20 2b |rightDep|th = 1 +|
|00002690| 20 72 69 67 68 74 2d 3e | 44 65 65 70 65 73 74 53 | right->|DeepestS|
|000026a0| 75 62 74 72 65 65 28 74 | 29 3b 0d 09 09 69 66 28 |ubtree(t|);...if(|
|000026b0| 28 72 69 67 68 74 44 65 | 70 74 68 20 2d 20 6c 65 |(rightDe|pth - le|
|000026c0| 66 74 44 65 70 74 68 20 | 3e 20 31 29 20 7c 7c 20 |ftDepth |> 1) || |
|000026d0| 28 72 69 67 68 74 44 65 | 70 74 68 20 2d 20 6c 65 |(rightDe|pth - le|
|000026e0| 66 74 44 65 70 74 68 20 | 3c 20 2d 31 29 29 0d 09 |ftDepth |< -1))..|
|000026f0| 09 09 44 65 62 75 67 53 | 74 72 28 22 5c 70 70 54 |..DebugS|tr("\ppT|
|00002700| 44 42 52 65 63 6f 72 64 | 3a 3a 56 65 72 69 66 79 |DBRecord|::Verify|
|00002710| 20 74 72 65 65 20 62 61 | 6c 61 6e 63 65 20 66 61 | tree ba|lance fa|
|00002720| 63 74 6f 72 20 67 72 65 | 61 74 65 72 20 74 68 61 |ctor gre|ater tha|
|00002730| 6e 20 6f 6e 65 22 29 3b | 0d 09 09 65 6c 73 65 20 |n one");|...else |
|00002740| 73 77 69 74 63 68 28 74 | 68 69 73 2d 3e 42 61 6c |switch(t|his->Bal|
|00002750| 61 6e 63 65 46 61 63 74 | 6f 72 28 74 29 29 0d 09 |anceFact|or(t))..|
|00002760| 09 7b 0d 09 09 09 63 61 | 73 65 20 6b 53 75 62 74 |.{....ca|se kSubt|
|00002770| 72 65 65 73 42 61 6c 61 | 6e 63 65 64 3a 0d 09 09 |reesBala|nced:...|
|00002780| 09 09 69 66 28 72 69 67 | 68 74 44 65 70 74 68 20 |..if(rig|htDepth |
|00002790| 21 3d 20 6c 65 66 74 44 | 65 70 74 68 29 0d 09 09 |!= leftD|epth)...|
|000027a0| 09 09 09 44 65 62 75 67 | 53 74 72 28 22 5c 70 53 |...Debug|Str("\pS|
|000027b0| 75 62 74 72 65 65 20 6d | 61 72 6b 65 64 20 62 61 |ubtree m|arked ba|
|000027c0| 6c 61 6e 63 65 64 20 77 | 68 65 6e 20 69 74 20 69 |lanced w|hen it i|
|000027d0| 73 6e 27 74 22 29 3b 0d | 09 09 09 09 62 72 65 61 |sn't");.|....brea|
|000027e0| 6b 3b 0d 09 09 09 63 61 | 73 65 20 6b 4c 65 66 74 |k;....ca|se kLeft|
|000027f0| 53 69 64 65 48 69 67 68 | 65 72 3a 0d 09 09 09 09 |SideHigh|er:.....|
|00002800| 69 66 28 72 69 67 68 74 | 44 65 70 74 68 20 3e 3d |if(right|Depth >=|
|00002810| 20 6c 65 66 74 44 65 70 | 74 68 29 0d 09 09 09 09 | leftDep|th).....|
|00002820| 09 44 65 62 75 67 53 74 | 72 28 22 5c 70 53 75 62 |.DebugSt|r("\pSub|
|00002830| 74 72 65 65 20 6d 61 72 | 6b 65 64 20 6c 65 66 74 |tree mar|ked left|
|00002840| 2d 68 65 61 76 79 20 77 | 68 65 6e 20 69 74 20 69 |-heavy w|hen it i|
|00002850| 73 6e 27 74 22 29 3b 0d | 09 09 09 09 62 72 65 61 |sn't");.|....brea|
|00002860| 6b 3b 0d 09 09 09 63 61 | 73 65 20 6b 52 69 67 68 |k;....ca|se kRigh|
|00002870| 74 53 69 64 65 48 69 67 | 68 65 72 3a 0d 09 09 09 |tSideHig|her:....|
|00002880| 09 69 66 28 72 69 67 68 | 74 44 65 70 74 68 20 3c |.if(righ|tDepth <|
|00002890| 3d 20 6c 65 66 74 44 65 | 70 74 68 29 0d 09 09 09 |= leftDe|pth)....|
|000028a0| 09 09 44 65 62 75 67 53 | 74 72 28 22 5c 70 53 75 |..DebugS|tr("\pSu|
|000028b0| 62 74 72 65 65 20 6d 61 | 72 6b 65 64 20 72 69 67 |btree ma|rked rig|
|000028c0| 68 74 2d 68 65 61 76 79 | 20 77 68 65 6e 20 69 74 |ht-heavy| when it|
|000028d0| 20 69 73 6e 27 74 22 29 | 3b 0d 09 09 09 09 62 72 | isn't")|;.....br|
|000028e0| 65 61 6b 3b 0d 09 09 09 | 64 65 66 61 75 6c 74 3a |eak;....|default:|
|000028f0| 0d 09 09 09 09 44 65 62 | 75 67 53 74 72 28 22 5c |.....Deb|ugStr("\|
|00002900| 70 42 61 6c 61 6e 63 65 | 20 66 61 63 74 6f 72 20 |pBalance| factor |
|00002910| 73 65 74 20 74 6f 20 75 | 6e 6b 6e 6f 77 6e 20 76 |set to u|nknown v|
|00002920| 61 6c 75 65 22 29 3b 0d | 09 09 7d 0d 09 7d 0d 7d |alue");.|..}..}.}|
|00002930| 20 2f 2f 20 54 44 42 52 | 65 63 6f 72 64 3a 3a 56 | // TDBR|ecord::V|
|00002940| 65 72 69 66 79 0d 0d 2f | 2f 2d 2d 2d 2d 2d 2d 2d |erify../|/-------|
|00002950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2f 2f 20 54 44 42 |--------|-.// TDB|
|000029a0| 52 65 63 6f 72 64 3a 3a | 54 6f 70 4f 66 54 72 65 |Record::|TopOfTre|
|000029b0| 65 0d 2f 2f 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |e.//----|--------|
|000029c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a00| 2d 2d 2d 2d 0d 41 43 6f | 6e 73 74 3c 54 44 42 52 |----.ACo|nst<TDBR|
|00002a10| 65 63 6f 72 64 3e 20 54 | 44 42 52 65 63 6f 72 64 |ecord> T|DBRecord|
|00002a20| 3a 3a 54 6f 70 4f 66 54 | 72 65 65 28 54 54 72 61 |::TopOfT|ree(TTra|
|00002a30| 6e 73 61 63 74 69 6f 6e | 2a 20 74 29 20 63 6f 6e |nsaction|* t) con|
|00002a40| 73 74 0d 7b 0d 09 41 43 | 6f 6e 73 74 3c 54 44 42 |st.{..AC|onst<TDB|
|00002a50| 52 65 63 6f 72 64 3e 20 | 74 72 65 65 54 6f 70 20 |Record> |treeTop |
|00002a60| 3d 20 41 43 6f 6e 73 74 | 3c 54 44 42 52 65 63 6f |= AConst|<TDBReco|
|00002a70| 72 64 3e 28 74 68 69 73 | 29 3b 0d 09 0d 09 77 68 |rd>(this|);....wh|
|00002a80| 69 6c 65 28 28 74 72 65 | 65 54 6f 70 2d 3e 52 65 |ile((tre|eTop->Re|
|00002a90| 63 6f 72 64 49 73 49 6e | 41 54 72 65 65 28 74 29 |cordIsIn|ATree(t)|
|00002aa0| 29 20 26 26 20 28 74 72 | 65 65 54 6f 70 2d 3e 52 |) && (tr|eeTop->R|
|00002ab0| 65 63 6f 72 64 49 73 41 | 74 54 6f 70 4f 66 54 72 |ecordIsA|tTopOfTr|
|00002ac0| 65 65 28 74 29 20 3d 3d | 20 66 61 6c 73 65 29 29 |ee(t) ==| false))|
|00002ad0| 0d 09 09 74 72 65 65 54 | 6f 70 20 3d 20 74 72 65 |...treeT|op = tre|
|00002ae0| 65 54 6f 70 2d 3e 4c 69 | 74 65 72 61 6c 50 61 72 |eTop->Li|teralPar|
|00002af0| 65 6e 74 53 69 62 6c 69 | 6e 67 28 74 29 3b 0d 09 |entSibli|ng(t);..|
|00002b00| 0d 09 52 65 71 75 69 72 | 65 28 74 72 65 65 54 6f |..Requir|e(treeTo|
|00002b10| 70 2e 45 78 69 73 74 73 | 28 29 29 3b 0d 09 0d 09 |p.Exists|());....|
|00002b20| 72 65 74 75 72 6e 20 74 | 72 65 65 54 6f 70 3b 0d |return t|reeTop;.|
|00002b30| 7d 20 2f 2f 20 54 44 42 | 52 65 63 6f 72 64 3a 3a |} // TDB|Record::|
|00002b40| 54 6f 70 4f 66 54 72 65 | 65 0d 0d 2f 2f 2d 2d 2d |TopOfTre|e..//---|
|00002b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 2f 2f |--------|-----.//|
|00002ba0| 20 54 44 42 52 65 63 6f | 72 64 3a 3a 54 72 65 65 | TDBReco|rd::Tree|
|00002bb0| 4f 77 6e 65 72 0d 2f 2f | 2d 2d 2d 2d 2d 2d 2d 2d |Owner.//|--------|
|00002bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c00| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 41 43 6f 6e 73 74 3c |--------|.AConst<|
|00002c10| 54 44 42 52 65 63 6f 72 | 64 3e 20 54 44 42 52 65 |TDBRecor|d> TDBRe|
|00002c20| 63 6f 72 64 3a 3a 54 72 | 65 65 4f 77 6e 65 72 28 |cord::Tr|eeOwner(|
|00002c30| 54 54 72 61 6e 73 61 63 | 74 69 6f 6e 2a 20 74 29 |TTransac|tion* t)|
|00002c40| 20 63 6f 6e 73 74 0d 7b | 0d 09 41 43 6f 6e 73 74 | const.{|..AConst|
|00002c50| 3c 54 44 42 52 65 63 6f | 72 64 3e 20 74 72 65 65 |<TDBReco|rd> tree|
|00002c60| 54 6f 70 20 3d 20 74 68 | 69 73 2d 3e 54 6f 70 4f |Top = th|is->TopO|
|00002c70| 66 54 72 65 65 28 74 29 | 3b 0d 09 41 43 6f 6e 73 |fTree(t)|;..ACons|
|00002c80| 74 3c 54 44 42 52 65 63 | 6f 72 64 3e 20 6f 77 6e |t<TDBRec|ord> own|
|00002c90| 65 72 28 6e 69 6c 29 3b | 0d 09 0d 09 69 66 28 74 |er(nil);|....if(t|
|00002ca0| 72 65 65 54 6f 70 2e 45 | 78 69 73 74 73 28 29 29 |reeTop.E|xists())|
|00002cb0| 0d 09 7b 0d 09 09 6f 77 | 6e 65 72 20 3d 20 74 72 |..{...ow|ner = tr|
|00002cc0| 65 65 54 6f 70 2d 3e 4c | 69 74 65 72 61 6c 50 61 |eeTop->L|iteralPa|
|00002cd0| 72 65 6e 74 53 69 62 6c | 69 6e 67 28 74 29 3b 0d |rentSibl|ing(t);.|
|00002ce0| 09 7d 0d 09 0d 09 72 65 | 74 75 72 6e 20 6f 77 6e |.}....re|turn own|
|00002cf0| 65 72 3b 0d 7d 20 2f 2f | 20 54 44 42 52 65 63 6f |er;.} //| TDBReco|
|00002d00| 72 64 3a 3a 54 72 65 65 | 4f 77 6e 65 72 0d 0d 2f |rd::Tree|Owner../|
|00002d10| 2f 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/-------|--------|
|00002d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d60| 2d 0d 2f 2f 20 54 44 42 | 52 65 63 6f 72 64 3a 3a |-.// TDB|Record::|
|00002d70| 47 6f 55 70 55 6e 74 69 | 6c 0d 2f 2f 2d 2d 2d 2d |GoUpUnti|l.//----|
|00002d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 41 43 6f |--------|----.ACo|
|00002dd0| 6e 73 74 3c 54 44 42 52 | 65 63 6f 72 64 3e 20 54 |nst<TDBR|ecord> T|
|00002de0| 44 42 52 65 63 6f 72 64 | 3a 3a 47 6f 55 70 55 6e |DBRecord|::GoUpUn|
|00002df0| 74 69 6c 28 54 54 72 61 | 6e 73 61 63 74 69 6f 6e |til(TTra|nsaction|
|00002e00| 2a 20 74 2c 20 43 68 69 | 6c 64 49 64 65 6e 74 69 |* t, Chi|ldIdenti|
|00002e10| 66 69 65 72 20 66 72 6f | 6d 44 69 72 65 63 74 69 |fier fro|mDirecti|
|00002e20| 6f 6e 29 20 63 6f 6e 73 | 74 0d 7b 0d 09 41 43 6f |on) cons|t.{..ACo|
|00002e30| 6e 73 74 3c 54 44 42 52 | 65 63 6f 72 64 3e 20 63 |nst<TDBR|ecord> c|
|00002e40| 61 6d 65 46 72 6f 6d 20 | 3d 20 41 43 6f 6e 73 74 |ameFrom |= AConst|
|00002e50| 3c 54 44 42 52 65 63 6f | 72 64 3e 28 74 68 69 73 |<TDBReco|rd>(this|
|00002e60| 29 3b 0d 09 41 43 6f 6e | 73 74 3c 54 44 42 52 65 |);..ACon|st<TDBRe|
|00002e70| 63 6f 72 64 3e 20 75 70 | 54 6f 20 3d 20 63 61 6d |cord> up|To = cam|
|00002e80| 65 46 72 6f 6d 2d 3e 50 | 61 72 65 6e 74 53 69 62 |eFrom->P|arentSib|
|00002e90| 6c 69 6e 67 28 74 29 3b | 0d 09 0d 09 77 68 69 6c |ling(t);|....whil|
|00002ea0| 65 28 28 75 70 54 6f 2e | 45 78 69 73 74 73 28 29 |e((upTo.|Exists()|
|00002eb0| 29 20 26 26 20 28 75 70 | 54 6f 2d 3e 49 64 65 6e |) && (up|To->Iden|
|00002ec0| 74 69 66 79 43 68 69 6c | 64 28 74 2c 20 63 61 6d |tifyChil|d(t, cam|
|00002ed0| 65 46 72 6f 6d 29 20 21 | 3d 20 66 72 6f 6d 44 69 |eFrom) !|= fromDi|
|00002ee0| 72 65 63 74 69 6f 6e 29 | 29 0d 09 7b 0d 09 09 63 |rection)|)..{...c|
|00002ef0| 61 6d 65 46 72 6f 6d 20 | 3d 20 75 70 54 6f 3b 0d |ameFrom |= upTo;.|
|00002f00| 09 09 75 70 54 6f 20 3d | 20 63 61 6d 65 46 72 6f |..upTo =| cameFro|
|00002f10| 6d 2d 3e 50 61 72 65 6e | 74 53 69 62 6c 69 6e 67 |m->Paren|tSibling|
|00002f20| 28 74 29 3b 0d 09 7d 0d | 09 0d 09 72 65 74 75 72 |(t);..}.|...retur|
|00002f30| 6e 20 75 70 54 6f 3b 0d | 7d 20 2f 2f 20 54 44 42 |n upTo;.|} // TDB|
|00002f40| 52 65 63 6f 72 64 3a 3a | 47 6f 55 70 55 6e 74 69 |Record::|GoUpUnti|
|00002f50| 6c 0d 0d 2f 2f 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |l..//---|--------|
|00002f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fa0| 2d 2d 2d 2d 2d 0d 2f 2f | 20 54 44 42 52 65 63 6f |-----.//| TDBReco|
|00002fb0| 72 64 3a 3a 46 69 72 73 | 74 49 74 65 6d 49 6e 54 |rd::Firs|tItemInT|
|00002fc0| 72 65 65 0d 2f 2f 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ree.//--|--------|
|00002fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003010| 2d 2d 2d 2d 2d 2d 0d 41 | 43 6f 6e 73 74 3c 54 44 |------.A|Const<TD|
|00003020| 42 52 65 63 6f 72 64 3e | 20 54 44 42 52 65 63 6f |BRecord>| TDBReco|
|00003030| 72 64 3a 3a 46 69 72 73 | 74 49 74 65 6d 49 6e 54 |rd::Firs|tItemInT|
|00003040| 72 65 65 28 54 54 72 61 | 6e 73 61 63 74 69 6f 6e |ree(TTra|nsaction|
|00003050| 2a 20 74 29 20 63 6f 6e | 73 74 0d 7b 0d 09 41 43 |* t) con|st.{..AC|
|00003060| 6f 6e 73 74 3c 54 44 42 | 52 65 63 6f 72 64 3e 20 |onst<TDB|Record> |
|00003070| 74 6f 70 4f 66 54 72 65 | 65 20 3d 20 74 68 69 73 |topOfTre|e = this|
|00003080| 2d 3e 54 6f 70 4f 66 54 | 72 65 65 28 74 29 3b 0d |->TopOfT|ree(t);.|
|00003090| 09 41 43 6f 6e 73 74 3c | 54 44 42 52 65 63 6f 72 |.AConst<|TDBRecor|
|000030a0| 64 3e 20 66 69 72 73 74 | 49 74 65 6d 49 6e 54 72 |d> first|ItemInTr|
|000030b0| 65 65 20 3d 20 74 6f 70 | 4f 66 54 72 65 65 2d 3e |ee = top|OfTree->|
|000030c0| 46 69 72 73 74 49 74 65 | 6d 49 6e 53 75 62 54 72 |FirstIte|mInSubTr|
|000030d0| 65 65 28 74 29 3b 0d 09 | 0d 09 72 65 74 75 72 6e |ee(t);..|..return|
|000030e0| 20 66 69 72 73 74 49 74 | 65 6d 49 6e 54 72 65 65 | firstIt|emInTree|
|000030f0| 3b 0d 7d 20 2f 2f 20 54 | 44 42 52 65 63 6f 72 64 |;.} // T|DBRecord|
|00003100| 3a 3a 46 69 72 73 74 49 | 74 65 6d 49 6e 54 72 65 |::FirstI|temInTre|
|00003110| 65 0d 0d 2f 2f 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |e..//---|--------|
|00003120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003160| 2d 2d 2d 2d 2d 0d 2f 2f | 20 54 44 42 52 65 63 6f |-----.//| TDBReco|
|00003170| 72 64 3a 3a 4c 61 73 74 | 49 74 65 6d 49 6e 54 72 |rd::Last|ItemInTr|
|00003180| 65 65 0d 2f 2f 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ee.//---|--------|
|00003190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031d0| 2d 2d 2d 2d 2d 0d 41 43 | 6f 6e 73 74 3c 54 44 42 |-----.AC|onst<TDB|
|000031e0| 52 65 63 6f 72 64 3e 20 | 54 44 42 52 65 63 6f 72 |Record> |TDBRecor|
|000031f0| 64 3a 3a 4c 61 73 74 49 | 74 65 6d 49 6e 54 72 65 |d::LastI|temInTre|
|00003200| 65 28 54 54 72 61 6e 73 | 61 63 74 69 6f 6e 2a 20 |e(TTrans|action* |
|00003210| 74 29 20 63 6f 6e 73 74 | 0d 7b 0d 09 41 43 6f 6e |t) const|.{..ACon|
|00003220| 73 74 3c 54 44 42 52 65 | 63 6f 72 64 3e 20 74 6f |st<TDBRe|cord> to|
|00003230| 70 4f 66 54 72 65 65 20 | 3d 20 74 68 69 73 2d 3e |pOfTree |= this->|
|00003240| 54 6f 70 4f 66 54 72 65 | 65 28 74 29 3b 0d 09 41 |TopOfTre|e(t);..A|
|00003250| 43 6f 6e 73 74 3c 54 44 | 42 52 65 63 6f 72 64 3e |Const<TD|BRecord>|
|00003260| 20 6c 61 73 74 49 74 65 | 6d 49 6e 54 72 65 65 20 | lastIte|mInTree |
|00003270| 3d 20 74 6f 70 4f 66 54 | 72 65 65 2d 3e 4c 61 73 |= topOfT|ree->Las|
|00003280| 74 49 74 65 6d 49 6e 53 | 75 62 54 72 65 65 28 74 |tItemInS|ubTree(t|
|00003290| 29 3b 0d 09 0d 09 72 65 | 74 75 72 6e 20 6c 61 73 |);....re|turn las|
|000032a0| 74 49 74 65 6d 49 6e 54 | 72 65 65 3b 0d 7d 20 2f |tItemInT|ree;.} /|
|000032b0| 2f 20 54 44 42 52 65 63 | 6f 72 64 3a 3a 4c 61 73 |/ TDBRec|ord::Las|
|000032c0| 74 49 74 65 6d 49 6e 54 | 72 65 65 0d 0d 2f 2f 2d |tItemInT|ree..//-|
|000032d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00003320| 2f 2f 20 54 44 42 52 65 | 63 6f 72 64 3a 3a 46 69 |// TDBRe|cord::Fi|
|00003330| 6e 64 49 74 65 6d 49 6e | 54 72 65 65 0d 2f 2f 2d |ndItemIn|Tree.//-|
|00003340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00003390| 41 43 6f 6e 73 74 3c 54 | 44 42 52 65 63 6f 72 64 |AConst<T|DBRecord|
|000033a0| 3e 20 54 44 42 52 65 63 | 6f 72 64 3a 3a 46 69 6e |> TDBRec|ord::Fin|
|000033b0| 64 49 74 65 6d 49 6e 54 | 72 65 65 28 54 54 72 61 |dItemInT|ree(TTra|
|000033c0| 6e 73 61 63 74 69 6f 6e | 2a 20 74 2c 20 54 41 62 |nsaction|* t, TAb|
|000033d0| 73 74 72 61 63 74 44 42 | 43 6f 6d 70 61 72 69 73 |stractDB|Comparis|
|000033e0| 6f 6e 4f 62 6a 65 63 74 | 2a 20 64 6f 43 6f 6d 70 |onObject|* doComp|
|000033f0| 61 72 65 29 20 63 6f 6e | 73 74 0d 7b 0d 09 41 43 |are) con|st.{..AC|
|00003400| 6f 6e 73 74 3c 54 44 42 | 52 65 63 6f 72 64 3e 20 |onst<TDB|Record> |
|00003410| 74 6f 70 4f 66 54 72 65 | 65 20 3d 20 74 68 69 73 |topOfTre|e = this|
|00003420| 2d 3e 54 6f 70 4f 66 54 | 72 65 65 28 74 29 3b 0d |->TopOfT|ree(t);.|
|00003430| 09 41 43 6f 6e 73 74 3c | 54 44 42 52 65 63 6f 72 |.AConst<|TDBRecor|
|00003440| 64 3e 20 66 6f 75 6e 64 | 49 74 65 6d 20 3d 20 74 |d> found|Item = t|
|00003450| 6f 70 4f 66 54 72 65 65 | 2d 3e 46 69 6e 64 49 74 |opOfTree|->FindIt|
|00003460| 65 6d 49 6e 53 75 62 54 | 72 65 65 28 74 2c 20 64 |emInSubT|ree(t, d|
|00003470| 6f 43 6f 6d 70 61 72 65 | 29 3b 0d 09 0d 09 72 65 |oCompare|);....re|
|00003480| 74 75 72 6e 20 66 6f 75 | 6e 64 49 74 65 6d 3b 0d |turn fou|ndItem;.|
|00003490| 7d 20 2f 2f 20 54 44 42 | 52 65 63 6f 72 64 3a 3a |} // TDB|Record::|
|000034a0| 46 69 6e 64 49 74 65 6d | 49 6e 54 72 65 65 0d 0d |FindItem|InTree..|
|000034b0| 2f 2f 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |//------|--------|
|000034c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000034d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000034e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000034f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003500| 2d 2d 0d 2f 2f 20 54 44 | 42 52 65 63 6f 72 64 3a |--.// TD|BRecord:|
|00003510| 3a 4e 75 6d 62 65 72 4f | 66 43 68 69 6c 64 53 69 |:NumberO|fChildSi|
|00003520| 62 6c 69 6e 67 73 0d 2f | 2f 2d 2d 2d 2d 2d 2d 2d |blings./|/-------|
|00003530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 6c 6f 6e 67 20 54 |--------|-.long T|
|00003580| 44 42 52 65 63 6f 72 64 | 3a 3a 4e 75 6d 62 65 72 |DBRecord|::Number|
|00003590| 4f 66 43 68 69 6c 64 53 | 69 62 6c 69 6e 67 73 28 |OfChildS|iblings(|
|000035a0| 54 54 72 61 6e 73 61 63 | 74 69 6f 6e 2a 20 74 29 |TTransac|tion* t)|
|000035b0| 20 63 6f 6e 73 74 0d 7b | 0d 09 6c 6f 6e 67 20 63 | const.{|..long c|
|000035c0| 68 69 6c 64 53 69 62 6c | 69 6e 67 73 20 3d 20 30 |hildSibl|ings = 0|
|000035d0| 3b 0d 09 0d 09 41 43 6f | 6e 73 74 3c 54 44 42 52 |;....ACo|nst<TDBR|
|000035e0| 65 63 6f 72 64 3e 20 6c | 65 66 74 20 3d 20 74 68 |ecord> l|eft = th|
|000035f0| 69 73 2d 3e 4c 65 66 74 | 53 69 62 6c 69 6e 67 28 |is->Left|Sibling(|
|00003600| 74 29 3b 0d 09 41 43 6f | 6e 73 74 3c 54 44 42 52 |t);..ACo|nst<TDBR|
|00003610| 65 63 6f 72 64 3e 20 72 | 69 67 68 74 20 3d 20 74 |ecord> r|ight = t|
|00003620| 68 69 73 2d 3e 52 69 67 | 68 74 53 69 62 6c 69 6e |his->Rig|htSiblin|
|00003630| 67 28 74 29 3b 0d 0d 09 | 69 66 28 6c 65 66 74 2e |g(t);...|if(left.|
|00003640| 45 78 69 73 74 73 28 29 | 29 0d 09 09 63 68 69 6c |Exists()|)...chil|
|00003650| 64 53 69 62 6c 69 6e 67 | 73 20 2b 3d 20 6c 65 66 |dSibling|s += lef|
|00003660| 74 2d 3e 4e 75 6d 62 65 | 72 4f 66 43 68 69 6c 64 |t->Numbe|rOfChild|
|00003670| 53 69 62 6c 69 6e 67 73 | 28 74 29 20 2b 20 31 3b |Siblings|(t) + 1;|
|00003680| 0d 09 69 66 28 72 69 67 | 68 74 2e 45 78 69 73 74 |..if(rig|ht.Exist|
|00003690| 73 28 29 29 0d 09 09 63 | 68 69 6c 64 53 69 62 6c |s())...c|hildSibl|
|000036a0| 69 6e 67 73 20 2b 3d 20 | 72 69 67 68 74 2d 3e 4e |ings += |right->N|
|000036b0| 75 6d 62 65 72 4f 66 43 | 68 69 6c 64 53 69 62 6c |umberOfC|hildSibl|
|000036c0| 69 6e 67 73 28 74 29 20 | 2b 20 31 3b 0d 09 0d 09 |ings(t) |+ 1;....|
|000036d0| 72 65 74 75 72 6e 20 63 | 68 69 6c 64 53 69 62 6c |return c|hildSibl|
|000036e0| 69 6e 67 73 3b 0d 7d 0d | 0d 2f 2f 2d 2d 2d 2d 2d |ings;.}.|.//-----|
|000036f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 2f 2f 20 54 |--------|---.// T|
|00003740| 44 42 52 65 63 6f 72 64 | 3a 3a 46 69 72 73 74 49 |DBRecord|::FirstI|
|00003750| 74 65 6d 49 6e 53 75 62 | 54 72 65 65 0d 2f 2f 2d |temInSub|Tree.//-|
|00003760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000037a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000037b0| 41 43 6f 6e 73 74 3c 54 | 44 42 52 65 63 6f 72 64 |AConst<T|DBRecord|
|000037c0| 3e 20 54 44 42 52 65 63 | 6f 72 64 3a 3a 46 69 72 |> TDBRec|ord::Fir|
|000037d0| 73 74 49 74 65 6d 49 6e | 53 75 62 54 72 65 65 28 |stItemIn|SubTree(|
|000037e0| 54 54 72 61 6e 73 61 63 | 74 69 6f 6e 2a 20 74 29 |TTransac|tion* t)|
|000037f0| 20 63 6f 6e 73 74 0d 7b | 0d 09 41 43 6f 6e 73 74 | const.{|..AConst|
|00003800| 3c 54 44 42 52 65 63 6f | 72 64 3e 20 66 69 72 73 |<TDBReco|rd> firs|
|00003810| 74 49 74 65 6d 20 3d 20 | 41 43 6f 6e 73 74 3c 54 |tItem = |AConst<T|
|00003820| 44 42 52 65 63 6f 72 64 | 3e 28 74 68 69 73 29 3b |DBRecord|>(this);|
|00003830| 0d 09 0d 09 77 68 69 6c | 65 28 66 69 72 73 74 49 |....whil|e(firstI|
|00003840| 74 65 6d 2d 3e 48 61 73 | 4c 65 66 74 53 69 62 6c |tem->Has|LeftSibl|
|00003850| 69 6e 67 28 74 29 29 0d | 09 7b 0d 09 09 66 69 72 |ing(t)).|.{...fir|
|00003860| 73 74 49 74 65 6d 20 3d | 20 66 69 72 73 74 49 74 |stItem =| firstIt|
|00003870| 65 6d 2d 3e 4c 65 66 74 | 53 69 62 6c 69 6e 67 28 |em->Left|Sibling(|
|00003880| 74 29 3b 0d 09 7d 0d 09 | 72 65 74 75 72 6e 20 66 |t);..}..|return f|
|00003890| 69 72 73 74 49 74 65 6d | 3b 0d 7d 20 2f 2f 20 54 |irstItem|;.} // T|
|000038a0| 44 42 52 65 63 6f 72 64 | 3a 3a 46 69 72 73 74 49 |DBRecord|::FirstI|
|000038b0| 74 65 6d 49 6e 53 75 62 | 54 72 65 65 0d 0d 2f 2f |temInSub|Tree..//|
|000038c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003910| 0d 2f 2f 20 54 44 42 52 | 65 63 6f 72 64 3a 3a 4c |.// TDBR|ecord::L|
|00003920| 61 73 74 49 74 65 6d 49 | 6e 53 75 62 54 72 65 65 |astItemI|nSubTree|
|00003930| 0d 2f 2f 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.//-----|--------|
|00003940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003980| 2d 2d 2d 0d 41 43 6f 6e | 73 74 3c 54 44 42 52 65 |---.ACon|st<TDBRe|
|00003990| 63 6f 72 64 3e 20 54 44 | 42 52 65 63 6f 72 64 3a |cord> TD|BRecord:|
|000039a0| 3a 4c 61 73 74 49 74 65 | 6d 49 6e 53 75 62 54 72 |:LastIte|mInSubTr|
|000039b0| 65 65 28 54 54 72 61 6e | 73 61 63 74 69 6f 6e 2a |ee(TTran|saction*|
|000039c0| 20 74 29 20 63 6f 6e 73 | 74 0d 7b 0d 09 41 43 6f | t) cons|t.{..ACo|
|000039d0| 6e 73 74 3c 54 44 42 52 | 65 63 6f 72 64 3e 20 6c |nst<TDBR|ecord> l|
|000039e0| 61 73 74 49 74 65 6d 20 | 3d 20 41 43 6f 6e 73 74 |astItem |= AConst|
|000039f0| 3c 54 44 42 52 65 63 6f | 72 64 3e 28 74 68 69 73 |<TDBReco|rd>(this|
|00003a00| 29 3b 0d 09 0d 09 77 68 | 69 6c 65 28 6c 61 73 74 |);....wh|ile(last|
|00003a10| 49 74 65 6d 2d 3e 48 61 | 73 52 69 67 68 74 53 69 |Item->Ha|sRightSi|
|00003a20| 62 6c 69 6e 67 28 74 29 | 29 0d 09 7b 0d 09 09 6c |bling(t)|)..{...l|
|00003a30| 61 73 74 49 74 65 6d 20 | 3d 20 6c 61 73 74 49 74 |astItem |= lastIt|
|00003a40| 65 6d 2d 3e 52 69 67 68 | 74 53 69 62 6c 69 6e 67 |em->Righ|tSibling|
|00003a50| 28 74 29 3b 0d 09 7d 0d | 09 72 65 74 75 72 6e 20 |(t);..}.|.return |
|00003a60| 6c 61 73 74 49 74 65 6d | 3b 0d 7d 20 2f 2f 20 54 |lastItem|;.} // T|
|00003a70| 44 42 52 65 63 6f 72 64 | 3a 3a 4c 61 73 74 49 74 |DBRecord|::LastIt|
|00003a80| 65 6d 49 6e 53 75 62 54 | 72 65 65 0d 0d 2f 2f 2d |emInSubT|ree..//-|
|00003a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00003ae0| 2f 2f 20 54 44 42 52 65 | 63 6f 72 64 3a 3a 4e 65 |// TDBRe|cord::Ne|
|00003af0| 78 74 49 74 65 6d 49 6e | 54 72 65 65 0d 2f 2f 2d |xtItemIn|Tree.//-|
|00003b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00003b50| 41 43 6f 6e 73 74 3c 54 | 44 42 52 65 63 6f 72 64 |AConst<T|DBRecord|
|00003b60| 3e 20 54 44 42 52 65 63 | 6f 72 64 3a 3a 4e 65 78 |> TDBRec|ord::Nex|
|00003b70| 74 49 74 65 6d 49 6e 54 | 72 65 65 28 54 54 72 61 |tItemInT|ree(TTra|
|00003b80| 6e 73 61 63 74 69 6f 6e | 2a 20 74 29 20 63 6f 6e |nsaction|* t) con|
|00003b90| 73 74 0d 7b 0d 09 41 43 | 6f 6e 73 74 3c 54 44 42 |st.{..AC|onst<TDB|
|00003ba0| 52 65 63 6f 72 64 3e 20 | 6e 65 78 74 49 74 65 6d |Record> |nextItem|
|00003bb0| 20 3d 20 74 68 69 73 2d | 3e 52 69 67 68 74 53 69 | = this-|>RightSi|
|00003bc0| 62 6c 69 6e 67 28 74 29 | 3b 0d 09 0d 09 2f 2f 0d |bling(t)|;....//.|
|00003bd0| 09 2f 2f 20 49 66 20 74 | 68 65 72 65 20 69 73 20 |.// If t|here is |
|00003be0| 61 20 6e 6f 64 65 20 69 | 6e 20 6f 75 72 20 52 69 |a node i|n our Ri|
|00003bf0| 67 68 74 53 69 62 6c 69 | 6e 67 20 73 6c 6f 74 2c |ghtSibli|ng slot,|
|00003c00| 20 74 68 65 6e 0d 09 2f | 2f 20 74 68 65 20 6e 65 | then../|/ the ne|
|00003c10| 78 74 20 6e 6f 64 65 20 | 69 6e 20 74 68 65 20 74 |xt node |in the t|
|00003c20| 72 65 65 20 63 61 6e 20 | 62 65 20 66 6f 75 6e 64 |ree can |be found|
|00003c30| 20 62 79 20 67 6f 69 6e | 67 20 64 6f 77 6e 0d 09 | by goin|g down..|
|00003c40| 2f 2f 20 6f 6e 65 20 73 | 74 65 70 20 74 6f 20 74 |// one s|tep to t|
|00003c50| 68 65 20 72 69 67 68 74 | 2c 20 61 6e 64 20 74 68 |he right|, and th|
|00003c60| 65 6e 20 66 6f 6c 6c 6f | 77 69 6e 67 20 74 68 65 |en follo|wing the|
|00003c70| 20 6c 65 66 74 0d 09 2f | 2f 20 6c 69 6e 6b 73 20 | left../|/ links |
|00003c80| 61 6c 6c 20 74 68 65 20 | 77 61 79 20 74 6f 20 74 |all the |way to t|
|00003c90| 68 65 20 65 6e 64 2e 0d | 09 2f 2f 0d 09 69 66 28 |he end..|.//..if(|
|00003ca0| 6e 65 78 74 49 74 65 6d | 2e 45 78 69 73 74 73 28 |nextItem|.Exists(|
|00003cb0| 29 29 0d 09 7b 0d 09 09 | 6e 65 78 74 49 74 65 6d |))..{...|nextItem|
|00003cc0| 20 3d 20 6e 65 78 74 49 | 74 65 6d 2d 3e 46 69 72 | = nextI|tem->Fir|
|00003cd0| 73 74 49 74 65 6d 49 6e | 53 75 62 54 72 65 65 28 |stItemIn|SubTree(|
|00003ce0| 74 29 3b 0d 09 7d 0d 09 | 2f 2f 0d 09 2f 2f 20 49 |t);..}..|//..// I|
|00003cf0| 66 20 74 68 65 72 65 20 | 69 73 6e 27 74 20 61 6e |f there |isn't an|
|00003d00| 20 65 6e 74 72 79 20 69 | 6e 20 6f 75 72 20 52 69 | entry i|n our Ri|
|00003d10| 67 68 74 53 69 62 6c 69 | 6e 67 20 73 6c 6f 74 2c |ghtSibli|ng slot,|
|00003d20| 0d 09 2f 2f 20 74 68 65 | 6e 20 74 68 65 20 6e 65 |..// the|n the ne|
|00003d30| 78 74 20 6e 6f 64 65 20 | 69 6e 20 74 68 65 20 74 |xt node |in the t|
|00003d40| 72 65 65 20 69 73 20 73 | 6f 6d 65 77 68 65 72 65 |ree is s|omewhere|
|00003d50| 20 61 62 6f 76 65 0d 09 | 2f 2f 20 75 73 20 28 6f | above..|// us (o|
|00003d60| 72 20 77 65 27 76 65 20 | 63 6f 6d 65 20 74 6f 20 |r we've |come to |
|00003d70| 74 68 65 20 65 6e 64 20 | 6f 66 20 74 68 65 20 74 |the end |of the t|
|00003d80| 72 65 65 20 61 6e 64 20 | 73 68 6f 75 6c 64 0d 09 |ree and |should..|
|00003d90| 2f 2f 20 72 65 74 75 72 | 6e 20 6e 69 6c 2d 2d 6f |// retur|n nil--o|
|00003da0| 6e 65 20 6f 72 20 74 68 | 65 20 6f 74 68 65 72 29 |ne or th|e other)|
|00003db0| 2e 0d 09 2f 2f 0d 09 65 | 6c 73 65 0d 09 7b 0d 09 |...//..e|lse..{..|
|00003dc0| 09 6e 65 78 74 49 74 65 | 6d 20 3d 20 74 68 69 73 |.nextIte|m = this|
|00003dd0| 2d 3e 47 6f 55 70 55 6e | 74 69 6c 28 74 2c 20 6b |->GoUpUn|til(t, k|
|00003de0| 4e 6f 64 65 49 73 4c 65 | 66 74 43 68 69 6c 64 29 |NodeIsLe|ftChild)|
|00003df0| 3b 0d 09 7d 0d 09 0d 09 | 72 65 74 75 72 6e 20 6e |;..}....|return n|
|00003e00| 65 78 74 49 74 65 6d 3b | 09 0d 7d 20 2f 2f 20 54 |extItem;|..} // T|
|00003e10| 44 42 52 65 63 6f 72 64 | 3a 3a 4e 65 78 74 49 74 |DBRecord|::NextIt|
|00003e20| 65 6d 49 6e 54 72 65 65 | 0d 0d 2f 2f 2d 2d 2d 2d |emInTree|..//----|
|00003e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 2f 2f 20 |--------|----.// |
|00003e80| 54 44 42 52 65 63 6f 72 | 64 3a 3a 50 72 65 76 69 |TDBRecor|d::Previ|
|00003e90| 6f 75 73 49 74 65 6d 49 | 6e 54 72 65 65 0d 2f 2f |ousItemI|nTree.//|
|00003ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ef0| 0d 41 43 6f 6e 73 74 3c | 54 44 42 52 65 63 6f 72 |.AConst<|TDBRecor|
|00003f00| 64 3e 20 54 44 42 52 65 | 63 6f 72 64 3a 3a 50 72 |d> TDBRe|cord::Pr|
|00003f10| 65 76 69 6f 75 73 49 74 | 65 6d 49 6e 54 72 65 65 |eviousIt|emInTree|
|00003f20| 28 54 54 72 61 6e 73 61 | 63 74 69 6f 6e 2a 20 74 |(TTransa|ction* t|
|00003f30| 29 20 63 6f 6e 73 74 0d | 7b 0d 09 41 43 6f 6e 73 |) const.|{..ACons|
|00003f40| 74 3c 54 44 42 52 65 63 | 6f 72 64 3e 20 70 72 65 |t<TDBRec|ord> pre|
|00003f50| 76 69 6f 75 73 49 74 65 | 6d 20 3d 20 74 68 69 73 |viousIte|m = this|
|00003f60| 2d 3e 4c 65 66 74 53 69 | 62 6c 69 6e 67 28 74 29 |->LeftSi|bling(t)|
|00003f70| 3b 0d 09 0d 09 2f 2f 0d | 09 2f 2f 20 49 66 20 74 |;....//.|.// If t|
|00003f80| 68 65 72 65 20 69 73 20 | 61 20 6e 6f 64 65 20 69 |here is |a node i|
|00003f90| 6e 20 6f 75 72 20 4c 65 | 66 74 53 69 62 6c 69 6e |n our Le|ftSiblin|
|00003fa0| 67 20 73 6c 6f 74 2c 20 | 74 68 65 6e 0d 09 2f 2f |g slot, |then..//|
|00003fb0| 20 74 68 65 20 70 72 65 | 76 69 6f 75 73 20 6e 6f | the pre|vious no|
|00003fc0| 64 65 20 69 6e 20 74 68 | 65 20 74 72 65 65 20 63 |de in th|e tree c|
|00003fd0| 61 6e 20 62 65 20 66 6f | 75 6e 64 20 62 79 20 67 |an be fo|und by g|
|00003fe0| 6f 69 6e 67 20 64 6f 77 | 6e 0d 09 2f 2f 20 6f 6e |oing dow|n..// on|
|00003ff0| 65 20 73 74 65 70 20 74 | 6f 20 74 68 65 20 6c 65 |e step t|o the le|
|00004000| 66 74 2c 20 61 6e 64 20 | 74 68 65 6e 20 66 6f 6c |ft, and |then fol|
|00004010| 6c 6f 77 69 6e 67 20 74 | 68 65 20 72 69 67 68 74 |lowing t|he right|
|00004020| 0d 09 2f 2f 20 6c 69 6e | 6b 73 20 61 6c 6c 20 74 |..// lin|ks all t|
|00004030| 68 65 20 77 61 79 20 74 | 6f 20 74 68 65 20 65 6e |he way t|o the en|
|00004040| 64 2e 0d 09 2f 2f 0d 09 | 69 66 28 70 72 65 76 69 |d...//..|if(previ|
|00004050| 6f 75 73 49 74 65 6d 2e | 45 78 69 73 74 73 28 29 |ousItem.|Exists()|
|00004060| 29 0d 09 7b 0d 09 09 70 | 72 65 76 69 6f 75 73 49 |)..{...p|reviousI|
|00004070| 74 65 6d 20 3d 20 70 72 | 65 76 69 6f 75 73 49 74 |tem = pr|eviousIt|
|00004080| 65 6d 2d 3e 4c 61 73 74 | 49 74 65 6d 49 6e 53 75 |em->Last|ItemInSu|
|00004090| 62 54 72 65 65 28 74 29 | 3b 0d 09 7d 0d 09 2f 2f |bTree(t)|;..}..//|
|000040a0| 0d 09 2f 2f 20 49 66 20 | 74 68 65 72 65 20 69 73 |..// If |there is|
|000040b0| 6e 27 74 20 61 6e 20 65 | 6e 74 72 79 20 69 6e 20 |n't an e|ntry in |
|000040c0| 6f 75 72 20 4c 65 66 74 | 53 69 62 6c 69 6e 67 20 |our Left|Sibling |
|000040d0| 73 6c 6f 74 2c 0d 09 2f | 2f 20 74 68 65 6e 20 74 |slot,../|/ then t|
|000040e0| 68 65 20 70 72 65 76 69 | 6f 75 73 20 6e 6f 64 65 |he previ|ous node|
|000040f0| 20 69 6e 20 74 68 65 20 | 74 72 65 65 20 69 73 20 | in the |tree is |
|00004100| 73 6f 6d 65 77 68 65 72 | 65 20 61 62 6f 76 65 0d |somewher|e above.|
|00004110| 09 2f 2f 20 75 73 20 28 | 6f 72 20 77 65 27 76 65 |.// us (|or we've|
|00004120| 20 63 6f 6d 65 20 74 6f | 20 74 68 65 20 62 65 67 | come to| the beg|
|00004130| 69 6e 6e 69 6e 67 20 6f | 66 20 74 68 65 20 74 72 |inning o|f the tr|
|00004140| 65 65 20 61 6e 64 20 73 | 68 6f 75 6c 64 0d 09 2f |ee and s|hould../|
|00004150| 2f 20 72 65 74 75 72 6e | 20 6e 69 6c 2d 2d 6f 6e |/ return| nil--on|
|00004160| 65 20 6f 72 20 74 68 65 | 20 6f 74 68 65 72 29 2e |e or the| other).|
|00004170| 0d 09 2f 2f 0d 09 65 6c | 73 65 0d 09 7b 0d 09 09 |..//..el|se..{...|
|00004180| 70 72 65 76 69 6f 75 73 | 49 74 65 6d 20 3d 20 74 |previous|Item = t|
|00004190| 68 69 73 2d 3e 47 6f 55 | 70 55 6e 74 69 6c 28 74 |his->GoU|pUntil(t|
|000041a0| 2c 20 6b 4e 6f 64 65 49 | 73 52 69 67 68 74 43 68 |, kNodeI|sRightCh|
|000041b0| 69 6c 64 29 3b 0d 09 7d | 0d 09 0d 09 72 65 74 75 |ild);..}|....retu|
|000041c0| 72 6e 20 70 72 65 76 69 | 6f 75 73 49 74 65 6d 3b |rn previ|ousItem;|
|000041d0| 09 0d 7d 20 2f 2f 20 54 | 44 42 52 65 63 6f 72 64 |..} // T|DBRecord|
|000041e0| 3a 3a 50 72 65 76 69 6f | 75 73 49 74 65 6d 49 6e |::Previo|usItemIn|
|000041f0| 54 72 65 65 0d 0d 2f 2f | 2d 2d 2d 2d 2d 2d 2d 2d |Tree..//|--------|
|00004200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004240| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 2f 2f 20 54 44 42 52 |--------|.// TDBR|
|00004250| 65 63 6f 72 64 3a 3a 46 | 69 6e 64 49 74 65 6d 49 |ecord::F|indItemI|
|00004260| 6e 53 75 62 54 72 65 65 | 0d 2f 2f 2d 2d 2d 2d 2d |nSubTree|.//-----|
|00004270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000042a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000042b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 41 43 6f 6e |--------|---.ACon|
|000042c0| 73 74 3c 54 44 42 52 65 | 63 6f 72 64 3e 20 54 44 |st<TDBRe|cord> TD|
|000042d0| 42 52 65 63 6f 72 64 3a | 3a 46 69 6e 64 49 74 65 |BRecord:|:FindIte|
|000042e0| 6d 49 6e 53 75 62 54 72 | 65 65 28 54 54 72 61 6e |mInSubTr|ee(TTran|
|000042f0| 73 61 63 74 69 6f 6e 2a | 20 74 2c 20 54 41 62 73 |saction*| t, TAbs|
|00004300| 74 72 61 63 74 44 42 43 | 6f 6d 70 61 72 69 73 6f |tractDBC|ompariso|
|00004310| 6e 4f 62 6a 65 63 74 2a | 20 64 6f 43 6f 6d 70 61 |nObject*| doCompa|
|00004320| 72 65 29 20 63 6f 6e 73 | 74 0d 7b 0d 09 52 45 51 |re) cons|t.{..REQ|
|00004330| 55 49 52 45 56 41 4c 49 | 44 50 4f 49 4e 54 45 52 |UIREVALI|DPOINTER|
|00004340| 28 64 6f 43 6f 6d 70 61 | 72 65 29 3b 0d 09 0d 09 |(doCompa|re);....|
|00004350| 41 43 6f 6e 73 74 3c 54 | 44 42 52 65 63 6f 72 64 |AConst<T|DBRecord|
|00004360| 3e 20 74 65 73 74 52 65 | 63 6f 72 64 20 3d 20 41 |> testRe|cord = A|
|00004370| 43 6f 6e 73 74 3c 54 44 | 42 52 65 63 6f 72 64 3e |Const<TD|BRecord>|
|00004380| 28 74 68 69 73 29 3b 0d | 09 0d 09 77 68 69 6c 65 |(this);.|...while|
|00004390| 28 74 65 73 74 52 65 63 | 6f 72 64 2e 45 78 69 73 |(testRec|ord.Exis|
|000043a0| 74 73 28 29 29 0d 09 7b | 0d 09 09 43 6f 6d 70 61 |ts())..{|...Compa|
|000043b0| 72 65 45 6e 75 6d 65 72 | 61 74 69 6f 6e 20 74 68 |reEnumer|ation th|
|000043c0| 65 54 65 73 74 20 3d 20 | 64 6f 43 6f 6d 70 61 72 |eTest = |doCompar|
|000043d0| 65 2d 3e 54 65 73 74 4f | 62 6a 65 63 74 28 74 2c |e->TestO|bject(t,|
|000043e0| 20 74 65 73 74 52 65 63 | 6f 72 64 29 3b 0d 09 09 | testRec|ord);...|
|000043f0| 69 66 28 74 68 65 54 65 | 73 74 20 21 3d 20 6b 4f |if(theTe|st != kO|
|00004400| 62 6a 65 63 74 4b 65 79 | 73 45 71 75 61 6c 29 0d |bjectKey|sEqual).|
|00004410| 09 09 7b 0d 09 09 09 2f | 2f 0d 09 09 09 2f 2f 20 |..{..../|/....// |
|00004420| 49 66 20 74 68 65 20 73 | 65 63 6f 6e 64 20 6f 62 |If the s|econd ob|
|00004430| 6a 65 63 74 20 28 74 68 | 65 20 6f 62 6a 65 63 74 |ject (th|e object|
|00004440| 20 62 65 69 6e 67 20 65 | 78 61 6d 69 6e 65 64 29 | being e|xamined)|
|00004450| 0d 09 09 09 2f 2f 20 63 | 6f 6d 65 73 20 61 66 74 |....// c|omes aft|
|00004460| 65 72 20 74 68 65 20 73 | 65 61 72 63 68 20 6b 65 |er the s|earch ke|
|00004470| 79 2c 20 74 68 65 6e 20 | 77 65 27 6c 6c 20 66 69 |y, then |we'll fi|
|00004480| 6e 64 20 74 68 65 0d 09 | 09 09 2f 2f 20 73 65 61 |nd the..|..// sea|
|00004490| 72 63 68 20 6b 65 79 20 | 73 6f 6d 65 77 68 65 72 |rch key |somewher|
|000044a0| 65 20 64 6f 77 6e 20 74 | 68 65 20 6c 65 66 74 20 |e down t|he left |
|000044b0| 73 69 64 65 20 6f 66 20 | 74 68 65 20 74 72 65 65 |side of |the tree|
|000044c0| 0d 09 09 09 2f 2f 20 28 | 77 68 69 63 68 20 69 73 |....// (|which is|
|000044d0| 20 77 68 65 72 65 20 74 | 68 65 20 73 6d 61 6c 6c | where t|he small|
|000044e0| 65 72 20 69 74 65 6d 73 | 20 61 72 65 20 66 6f 75 |er items| are fou|
|000044f0| 6e 64 29 0d 09 09 09 2f | 2f 0d 09 09 09 69 66 28 |nd)..../|/....if(|
|00004500| 74 68 65 54 65 73 74 20 | 3d 3d 20 6b 53 65 63 6f |theTest |== kSeco|
|00004510| 6e 64 4f 62 6a 65 63 74 | 43 6f 6d 65 73 41 66 74 |ndObject|ComesAft|
|00004520| 65 72 29 0d 09 09 09 09 | 74 65 73 74 52 65 63 6f |er).....|testReco|
|00004530| 72 64 20 3d 20 74 65 73 | 74 52 65 63 6f 72 64 2d |rd = tes|tRecord-|
|00004540| 3e 4c 65 66 74 53 69 62 | 6c 69 6e 67 28 74 29 3b |>LeftSib|ling(t);|
|00004550| 0d 09 09 09 65 6c 73 65 | 20 69 66 28 74 68 65 54 |....else| if(theT|
|00004560| 65 73 74 20 3d 3d 20 6b | 53 65 63 6f 6e 64 4f 62 |est == k|SecondOb|
|00004570| 6a 65 63 74 43 6f 6d 65 | 73 42 65 66 6f 72 65 29 |jectCome|sBefore)|
|00004580| 0d 09 09 09 09 74 65 73 | 74 52 65 63 6f 72 64 20 |.....tes|tRecord |
|00004590| 3d 20 74 65 73 74 52 65 | 63 6f 72 64 2d 3e 52 69 |= testRe|cord->Ri|
|000045a0| 67 68 74 53 69 62 6c 69 | 6e 67 28 74 29 3b 0d 09 |ghtSibli|ng(t);..|
|000045b0| 09 7d 0d 09 09 65 6c 73 | 65 0d 09 09 09 62 72 65 |.}...els|e....bre|
|000045c0| 61 6b 3b 0d 09 7d 0d 09 | 0d 09 72 65 74 75 72 6e |ak;..}..|..return|
|000045d0| 20 74 65 73 74 52 65 63 | 6f 72 64 3b 0d 7d 20 2f | testRec|ord;.} /|
|000045e0| 2f 20 54 44 42 52 65 63 | 6f 72 64 3a 3a 46 69 6e |/ TDBRec|ord::Fin|
|000045f0| 64 49 74 65 6d 49 6e 53 | 75 62 54 72 65 65 0d 0d |dItemInS|ubTree..|
|00004600| 2f 2f 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |//------|--------|
|00004610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004650| 2d 2d 0d 2f 2f 20 54 44 | 42 52 65 63 6f 72 64 3a |--.// TD|BRecord:|
|00004660| 3a 49 6e 73 65 72 74 0d | 2f 2f 2d 2d 2d 2d 2d 2d |:Insert.|//------|
|00004670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000046a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000046b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 42 6f 6f 6c 65 |--------|--.Boole|
|000046c0| 61 6e 20 54 44 42 52 65 | 63 6f 72 64 3a 3a 49 6e |an TDBRe|cord::In|
|000046d0| 73 65 72 74 28 54 54 72 | 61 6e 73 61 63 74 69 6f |sert(TTr|ansactio|
|000046e0| 6e 2a 20 74 2c 20 41 6e | 55 70 64 61 74 65 3c 54 |n* t, An|Update<T|
|000046f0| 44 42 52 65 63 6f 72 64 | 3e 20 69 6e 73 65 72 74 |DBRecord|> insert|
|00004700| 54 68 69 73 29 0d 7b 0d | 09 42 6f 6f 6c 65 61 6e |This).{.|.Boolean|
|00004710| 20 74 72 65 65 47 72 65 | 77 54 61 6c 6c 65 72 20 | treeGre|wTaller |
|00004720| 3d 20 66 61 6c 73 65 3b | 0d 0d 09 52 65 71 75 69 |= false;|...Requi|
|00004730| 72 65 28 69 6e 73 65 72 | 74 54 68 69 73 2d 3e 52 |re(inser|tThis->R|
|00004740| 65 63 6f 72 64 49 73 49 | 6e 41 54 72 65 65 28 74 |ecordIsI|nATree(t|
|00004750| 29 20 3d 3d 20 66 61 6c | 73 65 29 3b 0d 09 52 65 |) == fal|se);..Re|
|00004760| 71 75 69 72 65 28 28 69 | 6e 73 65 72 74 54 68 69 |quire((i|nsertThi|
|00004770| 73 2d 3e 48 61 73 52 69 | 67 68 74 53 69 62 6c 69 |s->HasRi|ghtSibli|
|00004780| 6e 67 28 74 29 20 3d 3d | 20 66 61 6c 73 65 29 20 |ng(t) ==| false) |
|00004790| 26 26 20 28 69 6e 73 65 | 72 74 54 68 69 73 2d 3e |&& (inse|rtThis->|
|000047a0| 48 61 73 4c 65 66 74 53 | 69 62 6c 69 6e 67 28 74 |HasLeftS|ibling(t|
|000047b0| 29 20 3d 3d 20 66 61 6c | 73 65 29 29 3b 0d 0d 09 |) == fal|se));...|
|000047c0| 2f 2f 0d 09 2f 2f 20 43 | 61 73 65 20 31 3a 20 20 |//..// C|ase 1:  |
|000047d0| 49 6e 73 65 72 74 20 74 | 6f 20 74 68 65 20 72 69 |Insert t|o the ri|
|000047e0| 67 68 74 0d 09 2f 2f 0d | 09 69 66 28 74 68 69 73 |ght..//.|.if(this|
|000047f0| 2d 3e 43 6f 6d 70 61 72 | 65 54 72 65 65 4f 72 64 |->Compar|eTreeOrd|
|00004800| 65 72 28 74 2c 20 69 6e | 73 65 72 74 54 68 69 73 |er(t, in|sertThis|
|00004810| 29 20 3d 3d 20 6b 53 65 | 63 6f 6e 64 4f 62 6a 65 |) == kSe|condObje|
|00004820| 63 74 43 6f 6d 65 73 41 | 66 74 65 72 29 0d 09 7b |ctComesA|fter)..{|
|00004830| 0d 09 09 2f 2f 0d 09 09 | 2f 2f 20 57 65 20 77 61 |...//...|// We wa|
|00004840| 6e 74 20 74 6f 20 69 6e | 73 65 72 74 20 74 68 65 |nt to in|sert the|
|00004850| 20 6e 6f 64 65 20 74 6f | 20 74 68 65 20 72 69 67 | node to| the rig|
|00004860| 68 74 3b 20 69 66 20 74 | 68 65 72 65 27 73 20 6e |ht; if t|here's n|
|00004870| 6f 74 68 69 6e 67 0d 09 | 09 2f 2f 20 74 6f 20 74 |othing..|.// to t|
|00004880| 68 65 20 72 69 67 68 74 | 2c 20 74 68 65 6e 20 77 |he right|, then w|
|00004890| 65 20 63 61 6e 20 6a 75 | 73 74 20 66 69 6c 6c 20 |e can ju|st fill |
|000048a0| 69 6e 20 74 68 65 20 65 | 6d 70 74 79 20 73 6c 6f |in the e|mpty slo|
|000048b0| 74 0d 09 09 2f 2f 0d 09 | 09 69 66 28 74 68 69 73 |t...//..|.if(this|
|000048c0| 2d 3e 48 61 73 52 69 67 | 68 74 53 69 62 6c 69 6e |->HasRig|htSiblin|
|000048d0| 67 28 74 29 20 3d 3d 20 | 66 61 6c 73 65 29 0d 09 |g(t) == |false)..|
|000048e0| 09 7b 0d 09 09 09 41 53 | 53 45 52 54 28 74 68 69 |.{....AS|SERT(thi|
|000048f0| 73 2d 3e 42 61 6c 61 6e | 63 65 46 61 63 74 6f 72 |s->Balan|ceFactor|
|00004900| 28 74 29 20 21 3d 20 6b | 52 69 67 68 74 53 69 64 |(t) != k|RightSid|
|00004910| 65 48 69 67 68 65 72 29 | 3b 0d 09 09 09 0d 09 09 |eHigher)|;.......|
|00004920| 09 69 6e 73 65 72 74 54 | 68 69 73 2d 3e 53 65 74 |.insertT|his->Set|
|00004930| 52 65 63 6f 72 64 49 73 | 41 74 54 6f 70 4f 66 54 |RecordIs|AtTopOfT|
|00004940| 72 65 65 28 74 2c 20 66 | 61 6c 73 65 29 3b 0d 09 |ree(t, f|alse);..|
|00004950| 09 09 69 6e 73 65 72 74 | 54 68 69 73 2d 3e 53 65 |..insert|This->Se|
|00004960| 74 50 61 72 65 6e 74 53 | 69 62 6c 69 6e 67 28 74 |tParentS|ibling(t|
|00004970| 2c 20 74 68 69 73 29 3b | 0d 09 09 09 69 6e 73 65 |, this);|....inse|
|00004980| 72 74 54 68 69 73 2d 3e | 53 65 74 42 61 6c 61 6e |rtThis->|SetBalan|
|00004990| 63 65 46 61 63 74 6f 72 | 28 74 2c 20 6b 53 75 62 |ceFactor|(t, kSub|
|000049a0| 74 72 65 65 73 42 61 6c | 61 6e 63 65 64 29 3b 0d |treesBal|anced);.|
|000049b0| 09 09 09 74 68 69 73 2d | 3e 53 65 74 52 69 67 68 |...this-|>SetRigh|
|000049c0| 74 53 69 62 6c 69 6e 67 | 28 74 2c 20 69 6e 73 65 |tSibling|(t, inse|
|000049d0| 72 74 54 68 69 73 29 3b | 0d 09 09 09 0d 09 09 09 |rtThis);|........|
|000049e0| 2f 2f 0d 09 09 09 2f 2f | 20 54 68 65 20 72 69 67 |//....//| The rig|
|000049f0| 68 74 20 73 75 62 74 72 | 65 65 20 77 61 73 20 65 |ht subtr|ee was e|
|00004a00| 6d 70 74 79 3b 20 6e 6f | 77 20 69 74 20 68 61 73 |mpty; no|w it has|
|00004a10| 20 6f 6e 65 20 6e 6f 64 | 65 2e 0d 09 09 09 2f 2f | one nod|e.....//|
|00004a20| 0d 09 09 09 74 72 65 65 | 47 72 65 77 54 61 6c 6c |....tree|GrewTall|
|00004a30| 65 72 20 3d 20 74 72 75 | 65 3b 0d 09 09 7d 0d 09 |er = tru|e;...}..|
|00004a40| 09 2f 2f 0d 09 09 2f 2f | 20 49 66 20 74 68 65 72 |.//...//| If ther|
|00004a50| 65 27 73 20 61 6c 72 65 | 61 64 79 20 73 6f 6d 65 |e's alre|ady some|
|00004a60| 74 68 69 6e 67 20 74 6f | 20 74 68 65 20 72 69 67 |thing to| the rig|
|00004a70| 68 74 2c 20 74 68 65 6e | 0d 09 09 2f 2f 20 77 65 |ht, then|...// we|
|00004a80| 20 6e 65 65 64 20 74 6f | 20 6d 61 6b 65 20 61 20 | need to| make a |
|00004a90| 72 65 63 75 72 73 69 76 | 65 20 63 61 6c 6c 20 74 |recursiv|e call t|
|00004aa0| 6f 20 69 6e 73 65 72 74 | 0d 09 09 2f 2f 0d 09 09 |o insert|...//...|
|00004ab0| 65 6c 73 65 0d 09 09 7b | 0d 09 09 09 41 43 6f 6e |else...{|....ACon|
|00004ac0| 73 74 3c 54 44 42 52 65 | 63 6f 72 64 3e 20 72 69 |st<TDBRe|cord> ri|
|00004ad0| 67 68 74 43 68 69 6c 64 | 20 3d 20 74 68 69 73 2d |ghtChild| = this-|
|00004ae0| 3e 52 69 67 68 74 53 69 | 62 6c 69 6e 67 28 74 29 |>RightSi|bling(t)|
|00004af0| 3b 0d 09 09 09 74 72 65 | 65 47 72 65 77 54 61 6c |;....tre|eGrewTal|
|00004b00| 6c 65 72 20 3d 20 28 74 | 68 69 73 2d 3e 54 72 61 |ler = (t|his->Tra|
|00004b10| 6e 73 61 63 74 69 6f 6e | 28 29 2d 3e 47 65 74 44 |nsaction|()->GetD|
|00004b20| 42 52 65 63 6f 72 64 55 | 70 64 61 74 65 50 6f 69 |BRecordU|pdatePoi|
|00004b30| 6e 74 65 72 28 72 69 67 | 68 74 43 68 69 6c 64 29 |nter(rig|htChild)|
|00004b40| 29 2d 3e 49 6e 73 65 72 | 74 28 74 2c 20 69 6e 73 |)->Inser|t(t, ins|
|00004b50| 65 72 74 54 68 69 73 29 | 3b 0d 09 09 7d 0d 0d 09 |ertThis)|;...}...|
|00004b60| 09 2f 2f 0d 09 09 2f 2f | 20 41 74 20 74 68 69 73 |.//...//| At this|
|00004b70| 20 70 6f 69 6e 74 20 77 | 65 20 6b 6e 6f 77 20 74 | point w|e know t|
|00004b80| 68 61 74 20 77 65 20 69 | 6e 73 65 72 74 65 64 20 |hat we i|nserted |
|00004b90| 61 20 6e 6f 64 65 0d 09 | 09 2f 2f 20 73 6f 6d 65 |a node..|.// some|
|00004ba0| 77 68 65 72 65 20 6f 6e | 20 74 68 65 20 72 69 67 |where on| the rig|
|00004bb0| 68 74 20 62 72 61 6e 63 | 68 2e 20 20 27 74 72 65 |ht branc|h.  'tre|
|00004bc0| 65 47 72 65 77 54 61 6c | 6c 65 72 27 0d 09 09 2f |eGrewTal|ler'.../|
|00004bd0| 2f 20 69 73 20 74 72 75 | 65 20 69 66 20 74 68 65 |/ is tru|e if the|
|00004be0| 20 72 69 67 68 74 20 73 | 75 62 74 72 65 65 20 67 | right s|ubtree g|
|00004bf0| 72 65 77 20 74 61 6c 6c | 65 72 2c 20 66 61 6c 73 |rew tall|er, fals|
|00004c00| 65 0d 09 09 2f 2f 20 69 | 66 20 69 74 20 73 74 61 |e...// i|f it sta|
|00004c10| 79 65 64 20 74 68 65 20 | 73 61 6d 65 20 68 65 69 |yed the |same hei|
|00004c20| 67 68 74 2e 20 20 54 68 | 65 20 6e 6f 64 65 20 77 |ght.  Th|e node w|
|00004c30| 61 73 20 62 61 6c 61 6e | 63 65 64 0d 09 09 2f 2f |as balan|ced...//|
|00004c40| 20 62 65 66 6f 72 65 20 | 74 68 65 20 69 6e 73 65 | before |the inse|
|00004c50| 72 74 2c 20 73 6f 20 69 | 66 20 74 68 65 20 72 69 |rt, so i|f the ri|
|00004c60| 67 68 74 20 73 75 62 74 | 72 65 65 20 64 69 64 20 |ght subt|ree did |
|00004c70| 6e 6f 74 0d 09 09 2f 2f | 20 63 68 61 6e 67 65 20 |not...//| change |
|00004c80| 69 6e 20 68 65 69 67 68 | 74 2c 20 74 68 65 6e 20 |in heigh|t, then |
|00004c90| 77 65 20 6b 6e 6f 77 20 | 74 68 61 74 20 74 68 69 |we know |that thi|
|00004ca0| 73 20 6e 6f 64 65 20 69 | 73 0d 09 09 2f 2f 20 73 |s node i|s...// s|
|00004cb0| 74 69 6c 6c 20 62 61 6c | 61 6e 63 65 64 2e 0d 09 |till bal|anced...|
|00004cc0| 09 2f 2f 0d 09 09 69 66 | 28 74 72 65 65 47 72 65 |.//...if|(treeGre|
|00004cd0| 77 54 61 6c 6c 65 72 29 | 0d 09 09 7b 0d 09 09 09 |wTaller)|...{....|
|00004ce0| 73 77 69 74 63 68 28 74 | 68 69 73 2d 3e 42 61 6c |switch(t|his->Bal|
|00004cf0| 61 6e 63 65 46 61 63 74 | 6f 72 28 74 29 29 0d 09 |anceFact|or(t))..|
|00004d00| 09 09 7b 0d 09 09 09 09 | 2f 2f 0d 09 09 09 09 2f |..{.....|//...../|
|00004d10| 2f 20 49 66 20 74 68 69 | 73 20 6e 6f 64 65 20 77 |/ If thi|s node w|
|00004d20| 61 73 20 62 61 6c 61 6e | 63 65 64 20 61 6e 64 20 |as balan|ced and |
|00004d30| 74 68 65 20 72 69 67 68 | 74 20 73 69 64 65 20 6a |the righ|t side j|
|00004d40| 75 73 74 0d 09 09 09 09 | 2f 2f 20 67 72 65 77 20 |ust.....|// grew |
|00004d50| 74 61 6c 6c 65 72 2c 20 | 74 68 65 6e 20 6d 61 72 |taller, |then mar|
|00004d60| 6b 20 74 68 69 73 20 6e | 6f 64 65 20 61 73 20 62 |k this n|ode as b|
|00004d70| 65 69 6e 67 20 72 69 67 | 68 74 2d 68 65 61 76 79 |eing rig|ht-heavy|
|00004d80| 0d 09 09 09 09 2f 2f 20 | 61 6e 64 20 6e 6f 74 65 |.....// |and note|
|00004d90| 20 74 68 61 74 20 74 68 | 69 73 20 73 75 62 74 72 | that th|is subtr|
|00004da0| 65 65 20 68 61 73 20 67 | 72 6f 77 6e 20 74 61 6c |ee has g|rown tal|
|00004db0| 6c 65 72 2e 0d 09 09 09 | 09 2f 2f 0d 09 09 09 09 |ler.....|.//.....|
|00004dc0| 63 61 73 65 20 6b 53 75 | 62 74 72 65 65 73 42 61 |case kSu|btreesBa|
|00004dd0| 6c 61 6e 63 65 64 3a 0d | 09 09 09 09 7b 0d 09 09 |lanced:.|....{...|
|00004de0| 09 09 09 74 68 69 73 2d | 3e 53 65 74 42 61 6c 61 |...this-|>SetBala|
|00004df0| 6e 63 65 46 61 63 74 6f | 72 28 74 2c 20 6b 52 69 |nceFacto|r(t, kRi|
|00004e00| 67 68 74 53 69 64 65 48 | 69 67 68 65 72 29 3b 0d |ghtSideH|igher);.|
|00004e10| 09 09 09 09 09 74 72 65 | 65 47 72 65 77 54 61 6c |.....tre|eGrewTal|
|00004e20| 6c 65 72 20 3d 20 74 72 | 75 65 3b 0d 09 09 09 09 |ler = tr|ue;.....|
|00004e30| 09 62 72 65 61 6b 3b 0d | 09 09 09 09 7d 0d 09 09 |.break;.|....}...|
|00004e40| 09 09 2f 2f 0d 09 09 09 | 09 2f 2f 20 49 66 20 74 |..//....|.// If t|
|00004e50| 68 65 20 6c 65 66 74 20 | 73 69 64 65 20 6f 66 20 |he left |side of |
|00004e60| 74 68 69 73 20 74 72 65 | 65 20 75 73 65 64 20 74 |this tre|e used t|
|00004e70| 6f 20 62 65 20 6f 6e 65 | 0d 09 09 09 09 2f 2f 20 |o be one|.....// |
|00004e80| 6e 6f 64 65 20 74 61 6c | 6c 65 72 20 74 68 61 6e |node tal|ler than|
|00004e90| 20 74 68 65 20 72 69 67 | 68 74 2c 20 61 6e 64 20 | the rig|ht, and |
|00004ea0| 74 68 65 20 72 69 67 68 | 74 20 73 75 62 74 72 65 |the righ|t subtre|
|00004eb0| 65 0d 09 09 09 09 2f 2f | 20 6a 75 73 74 20 67 72 |e.....//| just gr|
|00004ec0| 65 77 20 74 61 6c 6c 65 | 72 20 62 79 20 6f 6e 65 |ew talle|r by one|
|00004ed0| 2c 20 74 68 65 6e 20 6d | 61 72 6b 20 74 68 69 73 |, then m|ark this|
|00004ee0| 20 6e 6f 64 65 20 61 73 | 0d 09 09 09 09 2f 2f 20 | node as|.....// |
|00004ef0| 62 65 69 6e 67 20 62 61 | 6c 61 6e 63 65 64 20 61 |being ba|lanced a|
|00004f00| 6e 64 20 6e 6f 74 65 20 | 74 68 61 74 20 74 68 69 |nd note |that thi|
|00004f10| 73 20 74 72 65 65 20 64 | 69 64 20 6e 6f 74 0d 09 |s tree d|id not..|
|00004f20| 09 09 09 2f 2f 20 67 72 | 6f 77 20 61 6e 79 20 74 |...// gr|ow any t|
|00004f30| 61 6c 6c 65 72 2e 0d 09 | 09 09 09 2f 2f 0d 09 09 |aller...|...//...|
|00004f40| 09 09 63 61 73 65 20 6b | 4c 65 66 74 53 69 64 65 |..case k|LeftSide|
|00004f50| 48 69 67 68 65 72 3a 0d | 09 09 09 09 7b 0d 09 09 |Higher:.|....{...|
|00004f60| 09 09 09 74 68 69 73 2d | 3e 53 65 74 42 61 6c 61 |...this-|>SetBala|
|00004f70| 6e 63 65 46 61 63 74 6f | 72 28 74 2c 20 6b 53 75 |nceFacto|r(t, kSu|
|00004f80| 62 74 72 65 65 73 42 61 | 6c 61 6e 63 65 64 29 3b |btreesBa|lanced);|
|00004f90| 0d 09 09 09 09 09 74 72 | 65 65 47 72 65 77 54 61 |......tr|eeGrewTa|
|00004fa0| 6c 6c 65 72 20 3d 20 66 | 61 6c 73 65 3b 0d 09 09 |ller = f|alse;...|
|00004fb0| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 09 7d 0d |...break|;.....}.|
|00004fc0| 09 09 09 09 0d 09 09 09 | 09 2f 2f 0d 09 09 09 09 |........|.//.....|
|00004fd0| 2f 2f 20 49 66 20 74 68 | 65 20 72 69 67 68 74 20 |// If th|e right |
|00004fe0| 73 75 62 74 72 65 65 20 | 77 61 73 20 61 6c 72 65 |subtree |was alre|
|00004ff0| 61 64 79 20 74 61 6c 6c | 65 72 20 74 68 61 6e 0d |ady tall|er than.|
|00005000| 09 09 09 09 2f 2f 20 74 | 68 65 20 6c 65 66 74 20 |....// t|he left |
|00005010| 73 75 62 74 72 65 65 2c | 20 61 6e 64 20 74 68 65 |subtree,| and the|
|00005020| 20 72 69 67 68 74 20 73 | 69 64 65 20 67 72 65 77 | right s|ide grew|
|00005030| 20 61 67 61 69 6e 2c 0d | 09 09 09 09 2f 2f 20 74 | again,.|....// t|
|00005040| 68 65 6e 20 77 65 20 6e | 65 65 64 20 74 6f 20 64 |hen we n|eed to d|
|00005050| 6f 20 61 20 72 69 67 68 | 74 2d 73 69 64 65 20 62 |o a righ|t-side b|
|00005060| 61 6c 61 6e 63 65 2e 20 | 0d 09 09 09 09 2f 2f 0d |alance. |.....//.|
|00005070| 09 09 09 09 63 61 73 65 | 20 6b 52 69 67 68 74 53 |....case| kRightS|
|00005080| 69 64 65 48 69 67 68 65 | 72 3a 0d 09 09 09 09 7b |ideHighe|r:.....{|
|00005090| 0d 09 09 09 09 09 74 68 | 69 73 2d 3e 52 69 67 68 |......th|is->Righ|
|000050a0| 74 42 61 6c 61 6e 63 65 | 28 74 29 3b 0d 09 09 09 |tBalance|(t);....|
|000050b0| 09 09 74 72 65 65 47 72 | 65 77 54 61 6c 6c 65 72 |..treeGr|ewTaller|
|000050c0| 20 3d 20 66 61 6c 73 65 | 3b 0d 09 09 09 09 09 62 | = false|;......b|
|000050d0| 72 65 61 6b 3b 0d 09 09 | 09 09 7d 0d 09 09 09 7d |reak;...|..}....}|
|000050e0| 0d 09 09 7d 0d 23 69 66 | 20 53 4c 4f 57 44 45 42 |...}.#if| SLOWDEB|
|000050f0| 55 47 0d 09 09 2f 2f 0d | 09 09 2f 2f 20 54 68 65 |UG...//.|..// The|
|00005100| 20 74 72 65 65 20 61 62 | 6f 76 65 20 75 73 20 6d | tree ab|ove us m|
|00005110| 61 79 20 6e 65 65 64 20 | 74 6f 20 62 65 20 62 61 |ay need |to be ba|
|00005120| 6c 61 6e 63 65 64 2c 0d | 09 09 2f 2f 20 62 75 74 |lanced,.|..// but|
|00005130| 20 61 74 20 74 68 69 73 | 20 70 6f 69 6e 74 20 74 | at this| point t|
|00005140| 68 69 73 20 73 75 62 74 | 72 65 65 20 73 68 6f 75 |his subt|ree shou|
|00005150| 6c 64 20 76 65 72 69 66 | 79 2e 0d 09 09 2f 2f 0d |ld verif|y....//.|
|00005160| 09 09 74 68 69 73 2d 3e | 56 65 72 69 66 79 28 74 |..this->|Verify(t|
|00005170| 2c 20 74 72 75 65 29 3b | 0d 23 65 6e 64 69 66 0d |, true);|.#endif.|
|00005180| 09 7d 0d 09 2f 2f 0d 09 | 2f 2f 20 43 61 73 65 20 |.}..//..|// Case |
|00005190| 32 3a 20 20 49 6e 73 65 | 72 74 20 74 6f 20 74 68 |2:  Inse|rt to th|
|000051a0| 65 20 6c 65 66 74 0d 09 | 2f 2f 0d 09 65 6c 73 65 |e left..|//..else|
|000051b0| 0d 09 7b 0d 09 09 69 66 | 28 74 68 69 73 2d 3e 48 |..{...if|(this->H|
|000051c0| 61 73 4c 65 66 74 53 69 | 62 6c 69 6e 67 28 74 29 |asLeftSi|bling(t)|
|000051d0| 20 3d 3d 20 66 61 6c 73 | 65 29 0d 09 09 7b 0d 09 | == fals|e)...{..|
|000051e0| 09 09 41 53 53 45 52 54 | 28 74 68 69 73 2d 3e 42 |..ASSERT|(this->B|
|000051f0| 61 6c 61 6e 63 65 46 61 | 63 74 6f 72 28 74 29 20 |alanceFa|ctor(t) |
|00005200| 21 3d 20 6b 4c 65 66 74 | 53 69 64 65 48 69 67 68 |!= kLeft|SideHigh|
|00005210| 65 72 29 3b 0d 09 09 09 | 69 6e 73 65 72 74 54 68 |er);....|insertTh|
|00005220| 69 73 2d 3e 53 65 74 52 | 65 63 6f 72 64 49 73 41 |is->SetR|ecordIsA|
|00005230| 74 54 6f 70 4f 66 54 72 | 65 65 28 74 2c 20 66 61 |tTopOfTr|ee(t, fa|
|00005240| 6c 73 65 29 3b 0d 09 09 | 09 69 6e 73 65 72 74 54 |lse);...|.insertT|
|00005250| 68 69 73 2d 3e 53 65 74 | 50 61 72 65 6e 74 53 69 |his->Set|ParentSi|
|00005260| 62 6c 69 6e 67 28 74 2c | 20 74 68 69 73 29 3b 0d |bling(t,| this);.|
|00005270| 09 09 09 69 6e 73 65 72 | 74 54 68 69 73 2d 3e 53 |...inser|tThis->S|
|00005280| 65 74 42 61 6c 61 6e 63 | 65 46 61 63 74 6f 72 28 |etBalanc|eFactor(|
|00005290| 74 2c 20 6b 53 75 62 74 | 72 65 65 73 42 61 6c 61 |t, kSubt|reesBala|
|000052a0| 6e 63 65 64 29 3b 0d 09 | 09 09 74 68 69 73 2d 3e |nced);..|..this->|
|000052b0| 53 65 74 4c 65 66 74 53 | 69 62 6c 69 6e 67 28 74 |SetLeftS|ibling(t|
|000052c0| 2c 20 69 6e 73 65 72 74 | 54 68 69 73 29 3b 0d 09 |, insert|This);..|
|000052d0| 09 09 74 72 65 65 47 72 | 65 77 54 61 6c 6c 65 72 |..treeGr|ewTaller|
|000052e0| 20 3d 20 74 72 75 65 3b | 0d 09 09 7d 0d 09 09 65 | = true;|...}...e|
|000052f0| 6c 73 65 0d 09 09 7b 0d | 09 09 09 41 43 6f 6e 73 |lse...{.|...ACons|
|00005300| 74 3c 54 44 42 52 65 63 | 6f 72 64 3e 20 6c 65 66 |t<TDBRec|ord> lef|
|00005310| 74 43 68 69 6c 64 20 3d | 20 74 68 69 73 2d 3e 4c |tChild =| this->L|
|00005320| 65 66 74 53 69 62 6c 69 | 6e 67 28 74 29 3b 0d 09 |eftSibli|ng(t);..|
|00005330| 09 09 74 72 65 65 47 72 | 65 77 54 61 6c 6c 65 72 |..treeGr|ewTaller|
|00005340| 20 3d 20 28 74 68 69 73 | 2d 3e 54 72 61 6e 73 61 | = (this|->Transa|
|00005350| 63 74 69 6f 6e 28 29 2d | 3e 47 65 74 44 42 52 65 |ction()-|>GetDBRe|
|00005360| 63 6f 72 64 55 70 64 61 | 74 65 50 6f 69 6e 74 65 |cordUpda|tePointe|
|00005370| 72 28 6c 65 66 74 43 68 | 69 6c 64 29 29 2d 3e 49 |r(leftCh|ild))->I|
|00005380| 6e 73 65 72 74 28 74 2c | 20 69 6e 73 65 72 74 54 |nsert(t,| insertT|
|00005390| 68 69 73 29 3b 0d 09 09 | 7d 0d 09 09 69 66 28 74 |his);...|}...if(t|
|000053a0| 72 65 65 47 72 65 77 54 | 61 6c 6c 65 72 29 0d 09 |reeGrewT|aller)..|
|000053b0| 09 7b 0d 09 09 09 73 77 | 69 74 63 68 28 74 68 69 |.{....sw|itch(thi|
|000053c0| 73 2d 3e 42 61 6c 61 6e | 63 65 46 61 63 74 6f 72 |s->Balan|ceFactor|
|000053d0| 28 74 29 29 0d 09 09 09 | 7b 0d 09 09 09 09 63 61 |(t))....|{.....ca|
|000053e0| 73 65 20 6b 53 75 62 74 | 72 65 65 73 42 61 6c 61 |se kSubt|reesBala|
|000053f0| 6e 63 65 64 3a 0d 09 09 | 09 09 7b 0d 09 09 09 09 |nced:...|..{.....|
|00005400| 09 74 68 69 73 2d 3e 53 | 65 74 42 61 6c 61 6e 63 |.this->S|etBalanc|
|00005410| 65 46 61 63 74 6f 72 28 | 74 2c 20 6b 4c 65 66 74 |eFactor(|t, kLeft|
|00005420| 53 69 64 65 48 69 67 68 | 65 72 29 3b 0d 09 09 09 |SideHigh|er);....|
|00005430| 09 09 74 72 65 65 47 72 | 65 77 54 61 6c 6c 65 72 |..treeGr|ewTaller|
|00005440| 20 3d 20 74 72 75 65 3b | 0d 09 09 09 09 09 62 72 | = true;|......br|
|00005450| 65 61 6b 3b 0d 09 09 09 | 09 7d 0d 09 09 09 09 63 |eak;....|.}.....c|
|00005460| 61 73 65 20 6b 52 69 67 | 68 74 53 69 64 65 48 69 |ase kRig|htSideHi|
|00005470| 67 68 65 72 3a 0d 09 09 | 09 09 7b 0d 09 09 09 09 |gher:...|..{.....|
|00005480| 09 74 68 69 73 2d 3e 53 | 65 74 42 61 6c 61 6e 63 |.this->S|etBalanc|
|00005490| 65 46 61 63 74 6f 72 28 | 74 2c 20 6b 53 75 62 74 |eFactor(|t, kSubt|
|000054a0| 72 65 65 73 42 61 6c 61 | 6e 63 65 64 29 3b 0d 09 |reesBala|nced);..|
|000054b0| 09 09 09 09 74 72 65 65 | 47 72 65 77 54 61 6c 6c |....tree|GrewTall|
|000054c0| 65 72 20 3d 20 66 61 6c | 73 65 3b 0d 09 09 09 09 |er = fal|se;.....|
|000054d0| 09 62 72 65 61 6b 3b 0d | 09 09 09 09 7d 0d 09 09 |.break;.|....}...|
|000054e0| 09 09 63 61 73 65 20 6b | 4c 65 66 74 53 69 64 65 |..case k|LeftSide|
|000054f0| 48 69 67 68 65 72 3a 0d | 09 09 09 09 7b 0d 09 09 |Higher:.|....{...|
|00005500| 09 09 09 74 68 69 73 2d | 3e 4c 65 66 74 42 61 6c |...this-|>LeftBal|
|00005510| 61 6e 63 65 28 74 29 3b | 0d 09 09 09 09 09 74 72 |ance(t);|......tr|
|00005520| 65 65 47 72 65 77 54 61 | 6c 6c 65 72 20 3d 20 66 |eeGrewTa|ller = f|
|00005530| 61 6c 73 65 3b 0d 09 09 | 09 09 09 62 72 65 61 6b |alse;...|...break|
|00005540| 3b 0d 09 09 09 09 7d 0d | 09 09 09 7d 0d 09 09 7d |;.....}.|...}...}|
|00005550| 0d 23 69 66 64 65 66 20 | 53 4c 4f 57 44 45 42 55 |.#ifdef |SLOWDEBU|
|00005560| 47 0d 09 09 74 68 69 73 | 2d 3e 56 65 72 69 66 79 |G...this|->Verify|
|00005570| 28 74 2c 20 74 72 75 65 | 29 3b 0d 23 65 6e 64 69 |(t, true|);.#endi|
|00005580| 66 0d 09 7d 0d 09 0d 09 | 72 65 74 75 72 6e 20 74 |f..}....|return t|
|00005590| 72 65 65 47 72 65 77 54 | 61 6c 6c 65 72 3b 0d 7d |reeGrewT|aller;.}|
|000055a0| 20 2f 2f 20 54 44 42 52 | 65 63 6f 72 64 3a 3a 49 | // TDBR|ecord::I|
|000055b0| 6e 73 65 72 74 0d 0d 0d | 2f 2f 2d 2d 2d 2d 2d 2d |nsert...|//------|
|000055c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000055d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000055e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000055f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 2f 2f 20 54 44 |--------|--.// TD|
|00005610| 42 52 65 63 6f 72 64 3a | 3a 52 65 6d 6f 76 65 46 |BRecord:|:RemoveF|
|00005620| 72 6f 6d 54 72 65 65 0d | 2f 2f 2d 2d 2d 2d 2d 2d |romTree.|//------|
|00005630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 76 6f 69 64 20 |--------|--.void |
|00005680| 54 44 42 52 65 63 6f 72 | 64 3a 3a 52 65 6d 6f 76 |TDBRecor|d::Remov|
|00005690| 65 46 72 6f 6d 54 72 65 | 65 28 54 54 72 61 6e 73 |eFromTre|e(TTrans|
|000056a0| 61 63 74 69 6f 6e 2a 20 | 74 29 0d 7b 0d 09 2f 2f |action* |t).{..//|
|000056b0| 0d 09 2f 2f 20 44 6f 6e | 27 74 20 64 6f 20 61 6e |..// Don|'t do an|
|000056c0| 79 74 68 69 6e 67 20 75 | 6e 6c 65 73 73 20 77 65 |ything u|nless we|
|000056d0| 27 72 65 20 70 61 72 74 | 20 6f 66 20 61 20 74 72 |'re part| of a tr|
|000056e0| 65 65 0d 09 2f 2f 0d 09 | 69 66 28 74 68 69 73 2d |ee..//..|if(this-|
|000056f0| 3e 52 65 63 6f 72 64 49 | 73 49 6e 41 54 72 65 65 |>RecordI|sInATree|
|00005700| 28 74 29 29 0d 09 7b 0d | 23 69 66 20 30 0d 09 09 |(t))..{.|#if 0...|
|00005710| 2f 2f 0d 09 09 2f 2f 20 | 42 65 66 6f 72 65 20 77 |//...// |Before w|
|00005720| 65 20 64 6f 20 61 6e 79 | 74 68 69 6e 67 2c 20 76 |e do any|thing, v|
|00005730| 65 72 69 66 79 20 74 68 | 61 74 20 65 76 65 72 79 |erify th|at every|
|00005740| 74 68 69 6e 67 20 69 6e | 0d 09 09 2f 2f 20 74 68 |thing in|...// th|
|00005750| 69 73 20 74 72 65 65 20 | 69 73 20 76 61 6c 69 64 |is tree |is valid|
|00005760| 0d 09 09 2f 2f 0d 09 09 | 2f 2f 20 4e 6f 74 65 3a |...//...|// Note:|
|00005770| 20 20 53 6f 6d 65 74 69 | 6d 65 73 20 74 68 69 73 |  Someti|mes this|
|00005780| 20 77 69 6c 6c 20 63 61 | 75 73 65 20 61 73 73 65 | will ca|use asse|
|00005790| 72 74 69 6f 6e 73 20 74 | 6f 0d 09 09 2f 2f 20 66 |rtions t|o...// f|
|000057a0| 69 72 65 3b 20 66 6f 72 | 20 65 78 61 6d 70 6c 65 |ire; for| example|
|000057b0| 2c 20 69 66 20 74 68 65 | 20 69 74 65 6d 20 69 73 |, if the| item is|
|000057c0| 20 62 65 69 6e 67 20 72 | 65 6d 6f 76 65 64 20 0d | being r|emoved .|
|000057d0| 09 09 2f 2f 20 66 72 6f | 6d 20 52 65 73 6f 72 74 |..// fro|m Resort|
|000057e0| 54 68 69 73 52 65 63 6f | 72 64 2c 20 74 68 65 6e |ThisReco|rd, then|
|000057f0| 20 76 65 72 69 66 79 20 | 77 69 6c 6c 20 72 65 70 | verify |will rep|
|00005800| 6f 72 74 0d 09 09 2f 2f | 20 74 68 61 74 20 74 68 |ort...//| that th|
|00005810| 65 20 74 72 65 65 20 69 | 73 20 6e 6f 74 20 73 6f |e tree i|s not so|
|00005820| 72 74 65 64 20 63 6f 72 | 72 65 63 74 6c 79 0d 09 |rted cor|rectly..|
|00005830| 09 2f 2f 0d 09 09 41 43 | 6f 6e 73 74 3c 54 44 42 |.//...AC|onst<TDB|
|00005840| 52 65 63 6f 72 64 3e 20 | 74 72 65 65 54 6f 70 20 |Record> |treeTop |
|00005850| 3d 20 74 68 69 73 2d 3e | 54 6f 70 4f 66 54 72 65 |= this->|TopOfTre|
|00005860| 65 28 74 29 3b 0d 09 09 | 74 72 65 65 54 6f 70 2d |e(t);...|treeTop-|
|00005870| 3e 56 65 72 69 66 79 28 | 74 2c 20 74 72 75 65 29 |>Verify(|t, true)|
|00005880| 3b 0d 23 65 6e 64 69 66 | 0d 09 0d 09 09 2f 2f 0d |;.#endif|.....//.|
|00005890| 09 09 2f 2f 20 49 66 20 | 74 68 69 73 20 6e 6f 64 |..// If |this nod|
|000058a0| 65 20 68 61 73 20 74 77 | 6f 20 63 68 69 6c 64 72 |e has tw|o childr|
|000058b0| 65 6e 2c 20 74 68 65 6e | 20 77 65 20 6e 65 65 64 |en, then| we need|
|000058c0| 20 74 6f 20 73 77 61 70 | 20 69 74 73 0d 09 09 2f | to swap| its.../|
|000058d0| 2f 20 70 6f 73 69 74 69 | 6f 6e 20 69 6e 20 74 68 |/ positi|on in th|
|000058e0| 65 20 74 72 65 65 20 77 | 69 74 68 20 69 74 73 20 |e tree w|ith its |
|000058f0| 69 6d 6d 65 64 69 61 74 | 65 20 70 72 65 64 65 63 |immediat|e predec|
|00005900| 65 73 73 6f 72 2c 20 66 | 6f 75 6e 64 0d 09 09 2f |essor, f|ound.../|
|00005910| 2f 20 62 79 20 73 74 65 | 70 70 69 6e 67 20 64 6f |/ by ste|pping do|
|00005920| 77 6e 20 74 6f 20 74 68 | 65 20 6c 65 66 74 20 6f |wn to th|e left o|
|00005930| 6e 63 65 20 61 6e 64 20 | 74 68 65 6e 20 77 61 6c |nce and |then wal|
|00005940| 6b 69 6e 67 20 61 73 20 | 66 61 72 20 74 6f 0d 09 |king as |far to..|
|00005950| 09 2f 2f 20 74 68 65 20 | 72 69 67 68 74 20 61 73 |.// the |right as|
|00005960| 20 70 6f 73 73 69 62 6c | 65 2e 20 20 54 68 69 73 | possibl|e.  This|
|00005970| 20 63 68 61 6e 67 65 73 | 20 74 68 65 20 6f 72 64 | changes| the ord|
|00005980| 65 72 20 6f 66 20 74 68 | 65 20 74 72 65 65 0d 09 |er of th|e tree..|
|00005990| 09 2f 2f 20 74 65 6d 70 | 6f 72 61 72 69 6c 79 20 |.// temp|orarily |
|000059a0| 28 74 68 69 73 20 69 74 | 65 6d 20 61 6e 64 20 69 |(this it|em and i|
|000059b0| 74 73 20 70 72 65 76 69 | 6f 75 73 20 69 74 65 6d |ts previ|ous item|
|000059c0| 20 61 72 65 20 6e 6f 77 | 20 6f 75 74 0d 09 09 2f | are now| out.../|
|000059d0| 2f 20 6f 66 20 6f 72 64 | 65 72 29 2c 20 62 75 74 |/ of ord|er), but|
|000059e0| 20 6f 6e 63 65 20 74 68 | 69 73 20 69 74 65 6d 20 | once th|is item |
|000059f0| 69 73 20 72 65 6d 6f 76 | 65 64 20 61 6c 6c 20 69 |is remov|ed all i|
|00005a00| 74 65 6d 73 20 72 65 6d | 61 69 6e 69 6e 67 0d 09 |tems rem|aining..|
|00005a10| 09 2f 2f 20 69 6e 20 74 | 68 65 20 74 72 65 65 20 |.// in t|he tree |
|00005a20| 77 69 6c 6c 20 62 65 20 | 69 6e 20 74 68 65 20 63 |will be |in the c|
|00005a30| 6f 72 72 65 63 74 20 6f | 72 64 65 72 2e 0d 09 09 |orrect o|rder....|
|00005a40| 2f 2f 0d 09 09 69 66 28 | 28 74 68 69 73 2d 3e 48 |//...if(|(this->H|
|00005a50| 61 73 52 69 67 68 74 53 | 69 62 6c 69 6e 67 28 74 |asRightS|ibling(t|
|00005a60| 29 20 3d 3d 20 74 72 75 | 65 29 20 26 26 20 28 74 |) == tru|e) && (t|
|00005a70| 68 69 73 2d 3e 48 61 73 | 4c 65 66 74 53 69 62 6c |his->Has|LeftSibl|
|00005a80| 69 6e 67 28 74 29 20 3d | 3d 20 74 72 75 65 29 29 |ing(t) =|= true))|
|00005a90| 0d 09 09 7b 0d 09 09 09 | 41 43 6f 6e 73 74 3c 54 |...{....|AConst<T|
|00005aa0| 44 42 52 65 63 6f 72 64 | 3e 20 73 77 61 70 4e 6f |DBRecord|> swapNo|
|00005ab0| 64 65 20 3d 20 74 68 69 | 73 2d 3e 50 72 65 76 69 |de = thi|s->Previ|
|00005ac0| 6f 75 73 49 74 65 6d 49 | 6e 54 72 65 65 28 74 29 |ousItemI|nTree(t)|
|00005ad0| 3b 0d 09 09 09 74 68 69 | 73 2d 3e 53 77 61 70 54 |;....thi|s->SwapT|
|00005ae0| 72 65 65 50 6f 73 69 74 | 69 6f 6e 73 28 74 2c 20 |reePosit|ions(t, |
|00005af0| 74 68 69 73 2d 3e 54 72 | 61 6e 73 61 63 74 69 6f |this->Tr|ansactio|
|00005b00| 6e 28 29 2d 3e 47 65 74 | 44 42 52 65 63 6f 72 64 |n()->Get|DBRecord|
|00005b10| 55 70 64 61 74 65 50 6f | 69 6e 74 65 72 28 73 77 |UpdatePo|inter(sw|
|00005b20| 61 70 4e 6f 64 65 29 29 | 3b 0d 23 69 66 64 65 66 |apNode))|;.#ifdef|
|00005b30| 20 53 4c 4f 57 44 45 42 | 55 47 0d 09 09 09 74 68 | SLOWDEB|UG....th|
|00005b40| 69 73 2d 3e 54 6f 70 4f | 66 54 72 65 65 28 74 29 |is->TopO|fTree(t)|
|00005b50| 2d 3e 56 65 72 69 66 79 | 28 74 2c 20 74 72 75 65 |->Verify|(t, true|
|00005b60| 29 3b 0d 23 65 6e 64 69 | 66 0d 09 09 7d 0d 0d 09 |);.#endi|f...}...|
|00005b70| 09 2f 2f 0d 09 09 2f 2f | 20 52 65 6d 65 6d 62 65 |.//...//| Remembe|
|00005b80| 72 20 6f 75 72 20 70 61 | 72 65 6e 74 20 6e 6f 64 |r our pa|rent nod|
|00005b90| 65 20 62 65 66 6f 72 65 | 20 77 65 20 70 75 74 20 |e before| we put |
|00005ba0| 6f 75 72 20 63 68 69 6c | 64 20 69 6e 74 6f 20 74 |our chil|d into t|
|00005bb0| 68 65 0d 09 09 2f 2f 20 | 73 6c 6f 74 20 77 65 20 |he...// |slot we |
|00005bc0| 75 73 65 64 20 74 6f 20 | 6f 63 63 75 70 79 20 28 |used to |occupy (|
|00005bd0| 73 69 6e 63 65 20 77 65 | 20 6d 69 67 68 74 20 6e |since we| might n|
|00005be0| 6f 74 20 68 61 76 65 20 | 61 20 63 68 69 6c 64 2c |ot have |a child,|
|00005bf0| 20 61 6e 64 0d 09 09 2f | 2f 20 77 65 20 64 6f 6e | and.../|/ we don|
|00005c00| 27 74 20 77 61 6e 74 20 | 74 6f 20 6c 6f 6f 73 65 |'t want |to loose|
|00005c10| 20 6f 75 72 20 72 65 66 | 65 72 65 6e 63 65 20 74 | our ref|erence t|
|00005c20| 6f 20 74 68 65 20 70 61 | 72 65 6e 74 29 0d 09 09 |o the pa|rent)...|
|00005c30| 2f 2f 0d 09 09 41 43 6f | 6e 73 74 3c 54 44 42 52 |//...ACo|nst<TDBR|
|00005c40| 65 63 6f 72 64 3e 20 62 | 61 6c 61 6e 63 65 50 6f |ecord> b|alancePo|
|00005c50| 69 6e 74 20 3d 20 74 68 | 69 73 2d 3e 50 61 72 65 |int = th|is->Pare|
|00005c60| 6e 74 53 69 62 6c 69 6e | 67 28 74 29 3b 0d 09 09 |ntSiblin|g(t);...|
|00005c70| 0d 09 09 2f 2f 0d 09 09 | 2f 2f 20 4e 6f 77 20 74 |...//...|// Now t|
|00005c80| 68 61 74 20 77 65 20 68 | 61 76 65 20 7a 65 72 6f |hat we h|ave zero|
|00005c90| 20 6f 72 20 6f 6e 65 20 | 63 68 69 6c 64 72 65 6e | or one |children|
|00005ca0| 2c 20 6d 6f 76 65 20 75 | 70 20 6f 75 72 0d 09 09 |, move u|p our...|
|00005cb0| 2f 2f 20 63 68 69 6c 64 | 20 6c 69 73 74 20 74 6f |// child| list to|
|00005cc0| 20 74 68 65 20 73 6c 6f | 74 20 74 68 61 74 20 77 | the slo|t that w|
|00005cd0| 65 20 61 72 65 20 76 61 | 63 61 74 69 6e 67 2e 0d |e are va|cating..|
|00005ce0| 09 09 2f 2f 20 49 66 20 | 77 65 20 64 6f 6e 27 74 |..// If |we don't|
|00005cf0| 20 68 61 76 65 20 61 6e | 79 20 63 68 69 6c 64 72 | have an|y childr|
|00005d00| 65 6e 2c 20 74 68 65 6e | 20 64 6f 6e 27 74 20 62 |en, then| don't b|
|00005d10| 6f 74 68 65 72 0d 09 09 | 2f 2f 20 74 6f 20 64 6f |other...|// to do|
|00005d20| 20 74 68 65 20 6d 6f 76 | 65 2e 0d 09 09 2f 2f 0d | the mov|e....//.|
|00005d30| 09 09 41 43 6f 6e 73 74 | 3c 54 44 42 52 65 63 6f |..AConst|<TDBReco|
|00005d40| 72 64 3e 20 6d 6f 76 65 | 55 70 28 6e 69 6c 29 3b |rd> move|Up(nil);|
|00005d50| 0d 09 09 69 66 28 74 68 | 69 73 2d 3e 48 61 73 4c |...if(th|is->HasL|
|00005d60| 65 66 74 53 69 62 6c 69 | 6e 67 28 74 29 20 3d 3d |eftSibli|ng(t) ==|
|00005d70| 20 74 72 75 65 29 0d 09 | 09 7b 0d 09 09 09 6d 6f | true)..|.{....mo|
|00005d80| 76 65 55 70 20 3d 20 74 | 68 69 73 2d 3e 4c 65 66 |veUp = t|his->Lef|
|00005d90| 74 53 69 62 6c 69 6e 67 | 28 74 29 3b 0d 09 09 09 |tSibling|(t);....|
|00005da0| 74 68 69 73 2d 3e 53 65 | 74 4c 65 66 74 53 69 62 |this->Se|tLeftSib|
|00005db0| 6c 69 6e 67 28 74 2c 20 | 6e 69 6c 29 3b 0d 09 09 |ling(t, |nil);...|
|00005dc0| 7d 0d 09 09 65 6c 73 65 | 20 69 66 28 74 68 69 73 |}...else| if(this|
|00005dd0| 2d 3e 48 61 73 52 69 67 | 68 74 53 69 62 6c 69 6e |->HasRig|htSiblin|
|00005de0| 67 28 74 29 20 3d 3d 20 | 74 72 75 65 29 0d 09 09 |g(t) == |true)...|
|00005df0| 7b 0d 09 09 09 6d 6f 76 | 65 55 70 20 3d 20 74 68 |{....mov|eUp = th|
|00005e00| 69 73 2d 3e 52 69 67 68 | 74 53 69 62 6c 69 6e 67 |is->Righ|tSibling|
|00005e10| 28 74 29 3b 0d 09 09 09 | 74 68 69 73 2d 3e 53 65 |(t);....|this->Se|
|00005e20| 74 52 69 67 68 74 53 69 | 62 6c 69 6e 67 28 74 2c |tRightSi|bling(t,|
|00005e30| 20 6e 69 6c 29 3b 0d 09 | 09 7d 0d 09 09 0d 09 09 | nil);..|.}......|
|00005e40| 2f 2f 0d 09 09 2f 2f 20 | 4d 61 6b 65 20 74 68 65 |//...// |Make the|
|00005e50| 20 70 61 72 65 6e 74 20 | 6f 66 20 27 6d 6f 76 65 | parent |of 'move|
|00005e60| 55 70 27 20 62 65 20 74 | 68 65 20 70 61 72 65 6e |Up' be t|he paren|
|00005e70| 74 20 6f 66 0d 09 09 2f | 2f 20 74 68 69 73 20 6e |t of.../|/ this n|
|00005e80| 6f 64 65 3b 20 61 74 20 | 74 68 69 73 20 70 6f 69 |ode; at |this poi|
|00005e90| 6e 74 2c 20 27 74 68 69 | 73 27 20 73 68 6f 75 6c |nt, 'thi|s' shoul|
|00005ea0| 64 6e 27 74 20 68 61 76 | 65 0d 09 09 2f 2f 20 61 |dn't hav|e...// a|
|00005eb0| 6e 79 20 72 65 66 65 72 | 65 6e 63 65 73 20 69 6e |ny refer|ences in|
|00005ec0| 73 69 64 65 20 74 68 69 | 73 20 74 72 65 65 2d 2d |side thi|s tree--|
|00005ed0| 69 74 20 68 61 73 20 62 | 65 65 6e 0d 09 09 2f 2f |it has b|een...//|
|00005ee0| 20 63 6f 6d 70 6c 65 74 | 65 6c 79 20 72 65 6d 6f | complet|ely remo|
|00005ef0| 76 65 64 2e 20 20 41 6c | 6c 20 74 68 61 74 20 72 |ved.  Al|l that r|
|00005f00| 65 6d 61 69 6e 73 20 74 | 6f 20 62 65 20 64 6f 6e |emains t|o be don|
|00005f10| 65 0d 09 09 2f 2f 20 69 | 73 20 74 6f 20 72 65 62 |e...// i|s to reb|
|00005f20| 61 6c 61 6e 63 65 20 74 | 68 65 20 41 56 4c 20 74 |alance t|he AVL t|
|00005f30| 72 65 65 2e 0d 09 09 2f | 2f 0d 09 09 2f 2f 20 6e |ree..../|/...// n|
|00005f40| 2e 62 2e 20 49 66 20 27 | 6d 6f 76 65 55 70 27 20 |.b. If '|moveUp' |
|00005f50| 69 73 20 6e 69 6c 2c 20 | 74 68 65 6e 20 53 65 74 |is nil, |then Set|
|00005f60| 50 61 72 65 6e 74 73 4c | 69 6e 6b 54 6f 74 68 69 |ParentsL|inkTothi|
|00005f70| 73 4e 6f 64 65 54 6f 0d | 09 09 2f 2f 20 77 69 6c |sNodeTo.|..// wil|
|00005f80| 6c 20 6e 69 6c 20 6f 75 | 74 20 74 68 65 20 70 61 |l nil ou|t the pa|
|00005f90| 72 65 6e 74 73 20 6c 69 | 6e 6b 20 74 6f 20 74 68 |rents li|nk to th|
|00005fa0| 69 73 20 6e 6f 64 65 0d | 09 09 2f 2f 0d 09 09 43 |is node.|..//...C|
|00005fb0| 68 69 6c 64 49 64 65 6e | 74 69 66 69 65 72 09 64 |hildIden|tifier.d|
|00005fc0| 65 6c 65 74 65 64 46 72 | 6f 6d 53 69 64 65 20 3d |eletedFr|omSide =|
|00005fd0| 20 74 68 69 73 2d 3e 53 | 65 74 50 61 72 65 6e 74 | this->S|etParent|
|00005fe0| 73 4c 69 6e 6b 54 6f 54 | 68 69 73 4e 6f 64 65 54 |sLinkToT|hisNodeT|
|00005ff0| 6f 28 74 2c 20 6d 6f 76 | 65 55 70 29 3b 0d 23 69 |o(t, mov|eUp);.#i|
|00006000| 66 64 65 66 20 53 4c 4f | 57 44 45 42 55 47 0d 09 |fdef SLO|WDEBUG..|
|00006010| 09 69 66 28 6d 6f 76 65 | 55 70 2e 45 78 69 73 74 |.if(move|Up.Exist|
|00006020| 73 28 29 29 0d 09 09 7b | 0d 09 09 09 6d 6f 76 65 |s())...{|....move|
|00006030| 55 70 2d 3e 56 65 72 69 | 66 79 28 74 2c 20 74 72 |Up->Veri|fy(t, tr|
|00006040| 75 65 29 3b 0d 09 09 7d | 0d 23 65 6e 64 69 66 0d |ue);...}|.#endif.|
|00006050| 09 09 0d 09 09 2f 2f 0d | 09 09 2f 2f 20 27 64 65 |.....//.|..// 'de|
|00006060| 6c 65 74 65 64 46 72 6f | 6d 53 69 64 65 27 20 77 |letedFro|mSide' w|
|00006070| 69 6c 6c 20 61 6c 6d 6f | 73 74 20 61 6c 77 61 79 |ill almo|st alway|
|00006080| 73 20 62 65 20 27 6c 65 | 66 74 20 63 68 69 6c 64 |s be 'le|ft child|
|00006090| 27 20 6f 72 0d 09 09 2f | 2f 20 27 72 69 67 68 74 |' or.../|/ 'right|
|000060a0| 20 63 68 69 6c 64 27 2e | 20 20 54 68 65 20 6f 6e | child'.|  The on|
|000060b0| 6c 79 20 65 78 63 65 70 | 74 69 6f 6e 20 69 73 20 |ly excep|tion is |
|000060c0| 69 66 20 77 65 20 6a 75 | 73 74 20 72 65 6d 6f 76 |if we ju|st remov|
|000060d0| 65 64 0d 09 09 2f 2f 20 | 74 68 65 20 72 6f 6f 74 |ed...// |the root|
|000060e0| 20 6f 66 20 74 68 65 20 | 74 72 65 65 2c 20 77 68 | of the |tree, wh|
|000060f0| 69 63 68 20 69 73 20 6f | 6e 6c 79 20 70 6f 73 73 |ich is o|nly poss|
|00006100| 69 62 6c 65 20 69 6e 20 | 61 20 74 77 6f 2d 6e 6f |ible in |a two-no|
|00006110| 64 65 0d 09 09 2f 2f 20 | 74 72 65 65 20 28 6f 74 |de...// |tree (ot|
|00006120| 68 65 72 77 69 73 65 20 | 74 68 65 20 72 6f 6f 74 |herwise |the root|
|00006130| 20 77 6f 75 6c 64 20 68 | 61 76 65 20 62 65 65 6e | would h|ave been|
|00006140| 20 73 77 61 70 70 65 64 | 20 77 69 74 68 0d 09 09 | swapped| with...|
|00006150| 2f 2f 20 73 6f 6d 65 20 | 6c 65 61 66 20 6e 6f 64 |// some |leaf nod|
|00006160| 65 2c 20 61 6e 64 20 77 | 65 20 77 6f 75 6c 64 20 |e, and w|e would |
|00006170| 62 65 20 72 65 6d 6f 76 | 69 6e 67 20 61 20 6c 65 |be remov|ing a le|
|00006180| 61 66 2c 20 6e 6f 74 20 | 74 68 65 20 72 6f 6f 74 |af, not |the root|
|00006190| 29 2e 0d 09 09 2f 2f 0d | 09 09 69 66 28 28 64 65 |)....//.|..if((de|
|000061a0| 6c 65 74 65 64 46 72 6f | 6d 53 69 64 65 20 3d 3d |letedFro|mSide ==|
|000061b0| 20 6b 4e 6f 64 65 49 73 | 4c 65 66 74 43 68 69 6c | kNodeIs|LeftChil|
|000061c0| 64 29 20 7c 7c 20 28 64 | 65 6c 65 74 65 64 46 72 |d) || (d|eletedFr|
|000061d0| 6f 6d 53 69 64 65 20 3d | 3d 20 6b 4e 6f 64 65 49 |omSide =|= kNodeI|
|000061e0| 73 52 69 67 68 74 43 68 | 69 6c 64 29 29 0d 09 09 |sRightCh|ild))...|
|000061f0| 7b 0d 09 09 09 2f 2f 0d | 09 09 09 2f 2f 20 4b 65 |{....//.|...// Ke|
|00006200| 65 70 20 66 69 78 69 6e | 67 20 75 70 20 74 68 65 |ep fixin|g up the|
|00006210| 20 62 61 6c 61 6e 63 69 | 6e 67 20 6f 66 20 74 68 | balanci|ng of th|
|00006220| 65 20 74 72 65 65 20 75 | 6e 74 69 6c 20 77 65 0d |e tree u|ntil we.|
|00006230| 09 09 09 2f 2f 20 67 65 | 74 20 61 20 70 6f 69 6e |...// ge|t a poin|
|00006240| 74 20 77 68 65 72 65 20 | 74 68 65 20 74 72 65 65 |t where |the tree|
|00006250| 20 69 73 20 6c 6f 6e 67 | 65 72 20 6f 6e 20 74 68 | is long|er on th|
|00006260| 65 20 6f 74 68 65 72 0d | 09 09 09 2f 2f 20 62 72 |e other.|...// br|
|00006270| 61 6e 63 68 20 28 74 68 | 65 20 6f 6e 65 20 77 65 |anch (th|e one we|
|00006280| 20 64 69 64 6e 27 74 20 | 64 65 6c 65 74 65 20 66 | didn't |delete f|
|00006290| 72 6f 6d 29 3b 20 61 74 | 20 74 68 61 74 0d 09 09 |rom); at| that...|
|000062a0| 09 2f 2f 20 70 6f 69 6e | 74 20 77 65 20 63 61 6e |.// poin|t we can|
|000062b0| 20 6d 61 72 6b 20 74 68 | 65 20 74 72 65 65 20 61 | mark th|e tree a|
|000062c0| 73 20 62 61 6c 61 6e 63 | 65 64 20 61 6e 64 20 73 |s balanc|ed and s|
|000062d0| 74 6f 70 0d 09 09 09 2f | 2f 20 61 64 6a 75 73 74 |top..../|/ adjust|
|000062e0| 69 6e 67 20 69 74 2e 0d | 09 09 09 2f 2f 0d 09 09 |ing it..|...//...|
|000062f0| 09 42 6f 6f 6c 65 61 6e | 20 74 72 65 65 42 65 63 |.Boolean| treeBec|
|00006300| 61 6d 65 53 68 6f 72 74 | 65 72 20 3d 20 74 72 75 |ameShort|er = tru|
|00006310| 65 3b 0d 09 09 09 77 68 | 69 6c 65 28 28 62 61 6c |e;....wh|ile((bal|
|00006320| 61 6e 63 65 50 6f 69 6e | 74 2e 45 78 69 73 74 73 |ancePoin|t.Exists|
|00006330| 28 29 29 20 26 26 20 28 | 74 72 65 65 42 65 63 61 |()) && (|treeBeca|
|00006340| 6d 65 53 68 6f 72 74 65 | 72 20 3d 3d 20 74 72 75 |meShorte|r == tru|
|00006350| 65 29 29 0d 09 09 09 7b | 0d 23 69 66 64 65 66 20 |e))....{|.#ifdef |
|00006360| 53 4c 4f 57 44 45 42 55 | 47 0d 09 09 09 09 2f 2f |SLOWDEBU|G.....//|
|00006370| 0d 09 09 09 09 2f 2f 20 | 41 74 20 74 68 69 73 20 |.....// |At this |
|00006380| 70 6f 69 6e 74 20 69 6e | 20 74 68 65 20 65 78 65 |point in| the exe|
|00006390| 63 75 74 69 6f 6e 20 6f | 66 20 52 65 6d 6f 76 65 |cution o|f Remove|
|000063a0| 2c 20 77 65 20 6b 6e 6f | 77 20 74 68 61 74 0d 09 |, we kno|w that..|
|000063b0| 09 09 09 2f 2f 20 74 68 | 65 20 62 61 6c 61 6e 63 |...// th|e balanc|
|000063c0| 65 20 70 6f 69 6e 74 20 | 69 73 20 75 6e 62 61 6c |e point |is unbal|
|000063d0| 61 6e 63 65 64 2c 20 62 | 75 74 20 69 74 73 20 63 |anced, b|ut its c|
|000063e0| 68 69 6c 64 72 65 6e 20 | 73 68 6f 75 6c 64 0d 09 |hildren |should..|
|000063f0| 09 09 09 2f 2f 20 62 65 | 20 6f 6b 61 79 0d 09 09 |...// be| okay...|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.